/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 001 / _astronomy

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 10 05 00 00 24 06 00 00 |Archive.|....$...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 41 53 54 52 4f 4e | 4f 4d 59 00 ff ff ff ff |.!ASTRON|OMY.....|
|00000070| 45 ff ff ff 57 00 b8 c7 | 30 00 00 00 ff ff ff ff |E...W...|0.......|
|00000080| ec 04 00 80 82 21 52 55 | 4e 00 0d 39 39 0d 39 39 |.....!RU|N..99.99|
|00000090| 33 00 00 00 41 eb ff ff | d9 7f 11 e2 13 00 b2 d2 |3...A...|........|
|000000a0| 33 00 00 00 24 00 00 00 | 83 21 53 50 52 49 54 45 |3...$...|.!SPRITE|
|000000b0| 53 00 39 39 8c 01 00 00 | 41 f9 ff ff ae 5f 35 be |S.99....|A...._5.|
|000000c0| 13 00 fc 25 63 01 00 00 | 7b 00 00 00 83 41 4e 4f |...%c...|{....ANO|
|000000d0| 4d 41 4c 59 00 0d 39 39 | 01 04 00 00 41 fb ff ff |MALY..99|....A...|
|000000e0| 12 a3 2f 58 13 00 ab 6c | 98 03 00 00 02 02 00 00 |../X...l|........|
|000000f0| 83 43 41 4c 44 41 59 00 | 39 0d 39 39 68 06 00 00 |.CALDAY.|9.99h...|
|00000100| 41 fb ff ff bd 00 ac 57 | 13 00 98 32 3c 06 00 00 |A......W|...2<...|
|00000110| be 05 00 00 83 43 4f 4d | 45 54 00 39 39 0d 39 39 |.....COM|ET.99.99|
|00000120| 82 17 00 00 41 fb ff ff | ab ee ef 56 13 00 00 00 |....A...|...V....|
|00000130| 1e 17 00 00 1e 0c 00 00 | 83 45 43 4c 49 50 53 45 |........|.ECLIPSE|
|00000140| 00 0d 39 39 a6 40 00 00 | 41 fb ff ff 53 73 08 89 |..99.@..|A...Ss..|
|00000150| 13 00 00 00 6c 40 00 00 | 60 23 00 00 83 45 51 45 |....l@..|`#...EQE|
|00000160| 43 4c 00 39 39 0d 39 39 | 72 0b 00 00 41 fb ff ff |CL.99.99|r...A...|
|00000170| 87 8b b3 57 13 00 53 fe | 41 0b 00 00 f0 63 00 00 |...W..S.|A....c..|
|00000180| 83 45 51 47 41 4c 00 39 | 39 0d 39 39 02 09 00 00 |.EQGAL.9|9.99....|
|00000190| 41 fb ff ff 1f 15 b6 57 | 13 00 a6 a9 d0 08 00 00 |A......W|........|
|000001a0| 55 6f 00 00 83 45 51 48 | 4f 52 00 39 39 0d 39 39 |Uo...EQH|OR.99.99|
|000001b0| ca 08 00 00 41 fb ff ff | dc a3 ac 57 13 00 d7 af |....A...|...W....|
|000001c0| 98 08 00 00 49 78 00 00 | 83 46 49 54 4f 42 53 00 |....Ix..|.FITOBS.|
|000001d0| 39 0d 39 39 a8 22 00 00 | 41 fb ff ff 76 07 21 57 |9.99."..|A...v.!W|
|000001e0| 13 00 00 00 06 22 00 00 | 05 81 00 00 83 47 54 49 |....."..|.....GTI|
|000001f0| 4d 45 00 39 39 0d 39 39 | a1 08 00 00 41 fb ff ff |ME.99.99|....A...|
|00000200| 7b 5b ac 57 13 00 03 0d | 77 08 00 00 2f a3 00 00 |{[.W....|w.../...|
|00000210| 83 48 52 41 4e 47 00 39 | 39 0d 39 39 26 0a 00 00 |.HRANG.9|9.99&...|
|00000220| 41 fb ff ff a0 e9 ac 57 | 13 00 9a 65 fd 09 00 00 |A......W|...e....|
|00000230| ca ab 00 00 83 49 4e 4e | 45 52 50 4c 41 4e 53 00 |.....INN|ERPLANS.|
|00000240| 2a 6c 00 00 41 fb ff ff | e3 df 96 89 13 00 00 00 |*l..A...|........|
|00000250| 79 69 00 00 eb b5 00 00 | 83 4a 50 54 52 43 59 43 |yi......|.JPTRCYC|
|00000260| 4c 45 53 00 c2 7d 00 00 | 41 fb ff ff ab 8e e5 94 |LES..}..|A.......|
|00000270| 13 00 00 00 d9 7a 00 00 | 88 1f 01 00 83 4a 55 4c |.....z..|.....JUL|
|00000280| 44 41 59 00 39 0d 39 39 | 3f 04 00 00 41 fb ff ff |DAY.9.99|?...A...|
|00000290| f6 97 ab 57 13 00 fd d1 | 05 04 00 00 85 9a 01 00 |...W....|........|
|000002a0| 83 4d 41 52 53 43 59 43 | 4c 45 53 00 66 78 00 00 |.MARSCYC|LES.fx..|
|000002b0| 41 fb ff ff b3 ec 73 95 | 13 00 00 00 7d 75 00 00 |A.....s.|....}u..|
|000002c0| ae 9e 01 00 83 4d 49 4e | 53 45 43 00 39 0d 39 39 |.....MIN|SEC.9.99|
|000002d0| a7 04 00 00 41 fb ff ff | bd 5c ab 57 13 00 43 a0 |....A...|.\.W..C.|
|000002e0| 80 04 00 00 4f 14 02 00 | 83 4d 4f 4f 4e 00 0d 39 |....O...|.MOON..9|
|000002f0| 39 0d 39 39 cd 3c 00 00 | 41 fb ff ff ec cf e4 6f |9.99.<..|A......o|
|00000300| 13 00 23 65 3d 3c 00 00 | f3 18 02 00 83 4d 4f 4f |..#e=<..|.....MOO|
|00000310| 4e 43 59 43 4c 45 53 00 | dd 6b 00 00 41 fb ff ff |NCYCLES.|.k..A...|
|00000320| 87 98 fd 95 13 00 78 77 | cf 69 00 00 54 55 02 00 |......xw|.i..TU..|
|00000330| 83 4d 4f 4f 4e 4e 46 00 | 39 0d 39 39 1d 0d 00 00 |.MOONNF.|9.99....|
|00000340| 41 fb ff ff d1 d2 f1 56 | 13 00 9f 3a a9 0c 00 00 |A......V|...:....|
|00000350| 47 bf 02 00 83 4d 4f 4f | 4e 52 53 00 39 0d 39 39 |G....MOO|NRS.9.99|
|00000360| e8 30 00 00 41 fb ff ff | 17 0d 0f 77 13 00 2f 22 |.0..A...|...w../"|
|00000370| bb 30 00 00 14 cc 02 00 | 83 4e 55 54 41 54 00 39 |.0......|.NUTAT.9|
|00000380| 39 0d 39 39 f0 09 00 00 | 41 fb ff ff c9 b6 2e 58 |9.99....|A......X|
|00000390| 13 00 4d 73 c2 09 00 00 | f3 fc 02 00 83 4f 42 4c |..Ms....|.....OBL|
|000003a0| 49 51 00 39 39 0d 39 39 | 3c 06 00 00 41 fb ff ff |IQ.99.99|<...A...|
|000003b0| 57 bd ad 57 13 00 02 32 | 14 06 00 00 d9 06 03 00 |W..W...2|........|
|000003c0| 83 4f 55 54 45 52 50 4c | 41 4e 53 00 2d 8c 00 00 |.OUTERPL|ANS.-...|
|000003d0| 41 fb ff ff 4c fb 6a 95 | 13 00 24 0c 9a 89 00 00 |A...L.j.|..$.....|
|000003e0| 11 0d 03 00 83 50 41 52 | 41 4c 4c 41 58 00 39 39 |.....PAR|ALLAX.99|
|000003f0| 98 0e 00 00 41 fb ff ff | 23 7e 2f 58 13 00 9a ec |....A...|#~/X....|
|00000400| 57 0e 00 00 cf 96 03 00 | 83 50 45 4c 45 4d 45 4e |W.......|.PELEMEN|
|00000410| 54 00 39 39 16 11 00 00 | 41 fb ff ff 35 53 34 58 |T.99....|A...5S4X|
|00000420| 13 00 e1 48 d0 10 00 00 | 4a a5 03 00 83 50 4c 41 |...H....|J....PLA|
|00000430| 4e 53 00 39 39 0d 39 39 | 9e 63 00 00 41 fb ff ff |NS.99.99|.c..A...|
|00000440| 65 4d 69 84 13 00 db 83 | 3c 63 00 00 3e b6 03 00 |eMi.....|<c..>...|
|00000450| 83 52 45 44 45 4c 4d 54 | 00 0d 39 39 d8 09 00 00 |.REDELMT|..99....|
|00000460| 41 fb ff ff 6d 59 a7 56 | 13 00 88 8d 5a 09 00 00 |A...mY.V|....Z...|
|00000470| 9e 19 04 00 83 52 45 46 | 52 41 43 54 00 0d 39 39 |.....REF|RACT..99|
|00000480| 5c 0f 00 00 41 fb ff ff | 4b 57 2e 58 13 00 3e 60 |\...A...|KW.X..>`|
|00000490| 29 0f 00 00 1c 23 04 00 | 83 52 49 53 45 54 00 39 |)....#..|.RISET.9|
|000004a0| 39 0d 39 39 d6 86 00 00 | 41 fb ff ff ef 23 a0 8f |9.99....|A....#..|
|000004b0| 13 00 2b 32 8c 86 00 00 | 69 32 04 00 83 53 41 54 |..+2....|i2...SAT|
|000004c0| 52 43 59 43 4c 45 53 00 | e3 81 00 00 41 fb ff ff |RCYCLES.|....A...|
|000004d0| 03 4d ed 94 13 00 b5 05 | fa 7e 00 00 19 b9 04 00 |.M......|.~......|
|000004e0| 83 53 54 41 52 53 00 39 | 39 0d 39 39 06 81 00 00 |.STARS.9|9.99....|
|000004f0| 41 fb ff ff cf 23 a1 8f | 13 00 52 93 d1 80 00 00 |A....#..|..R.....|
|00000500| 37 38 05 00 83 53 55 4e | 45 50 00 39 39 0d 39 39 |78...SUN|EP.99.99|
|00000510| c9 16 00 00 41 fb ff ff | 6f 3e 30 58 13 00 f2 b5 |....A...|o>0X....|
|00000520| 7b 16 00 00 2c b9 05 00 | 00 39 39 0d 39 39 0d 39 |{...,...|.99.99.9|
|00000530| 39 0d 39 39 0d 39 39 0d | 39 39 0d 39 39 0d 39 39 |9.99.99.|99.99.99|
|00000540| 0d 39 39 0d 39 39 0d 39 | e5 09 39 39 00 00 00 00 |.99.99.9|..99....|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 14 06 20 db 0d 00 1e a0 | 20 f1 27 27 8a 35 29 3b |.. .....| .''.5);|
|00000580| 22 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 66 69 |"This ro|utine fi|
|00000590| 6e 64 73 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |nds the |value of|
|000005a0| 20 74 68 65 20 65 63 63 | 65 6e 74 72 69 63 20 61 | the ecc|entric a|
|000005b0| 6e 64 20 74 72 75 65 20 | 61 6e 6f 6d 61 6c 69 65 |nd true |anomalie|
|000005c0| 73 20 90 10 69 6e 20 65 | 6c 6c 69 70 74 69 63 61 |s ..in e|lliptica|
|000005d0| 6c 20 6d 6f 74 69 6f 6e | 2c 20 67 69 76 65 6e 20 |l motion|, given |
|000005e0| 74 68 65 20 6d 65 61 6e | 20 61 6e 6f 6d 61 6c 79 |the mean| anomaly|
|000005f0| 20 61 6e 64 20 74 68 65 | 20 65 63 63 65 6e 74 72 | and the| eccentr|
|00000600| 69 63 69 74 79 2e 22 0d | 00 28 44 20 f4 20 90 07 |icity.".|.(D . ..|
|00000610| 2a 90 37 0d 00 32 06 20 | 3a 0d 00 3c 1a 20 dd a4 |*.7..2. |:..<. ..|
|00000620| 44 45 47 28 46 69 6c 65 | 44 61 74 61 82 21 52 55 |DEG(File|Data.!RU|
|00000630| 4e 00 0d 39 39 0d 39 39 | 33 00 00 00 41 eb ff ff |N..99.99|3...A...|
|00000640| d9 7f 11 e2 03 00 b2 d2 | 45 63 68 6f 20 54 68 69 |........|Echo Thi|
|00000650| 73 20 64 69 72 65 63 74 | 6f 72 79 20 63 6f 6e 74 |s direct|ory cont|
|00000660| 61 69 6e 73 20 33 31 20 | 61 73 74 72 6f 6e 6f 6d |ains 31 |astronom|
|00000670| 79 20 70 72 6f 67 72 61 | 6d 73 0a 46 69 6c 65 44 |y progra|ms.FileD|
|00000680| 61 74 61 83 21 53 50 52 | 49 54 45 53 00 39 39 8c |ata.!SPR|ITES.99.|
|00000690| 01 00 00 41 f9 ff ff ae | 5f 35 be 03 00 fc 25 01 |...A....|_5....%.|
|000006a0| 00 90 03 10 00 90 03 90 | 00 01 00 00 80 01 00 00 |........|........|
|000006b0| 21 61 73 74 72 6f 6e 6f | 6d 79 00 00 04 00 90 03 |!astrono|my......|
|000006c0| 10 00 90 07 0f 00 90 03 | 2c 00 90 03 2c 00 90 03 |........|,...,...|
|000006d0| 0c 00 90 03 77 90 09 07 | 77 70 07 77 90 03 07 77 |....w...|wp.w...w|
|000006e0| 00 00 70 77 77 70 77 00 | 77 70 77 90 03 70 77 90 |..pwwpw.|wpw..pw.|
|000006f0| 03 70 77 70 00 00 77 70 | 77 90 06 70 77 90 03 07 |.pwp..wp|w..pw...|
|00000700| 70 77 90 04 00 00 70 77 | 90 03 70 77 70 77 77 70 |pw....pw|..pwpwwp|
|00000710| 07 77 90 04 07 00 77 00 | 00 70 77 00 77 70 77 90 |.w....w.|.pw.wpw.|
|00000720| 03 70 77 77 70 77 77 70 | 07 77 70 00 00 07 77 77 |.pwwpwwp|.wp...ww|
|00000730| 70 77 70 77 07 77 77 70 | 77 07 77 90 05 00 00 77 |pwpw.wwp|w.w....w|
|00000740| 77 70 77 90 03 00 77 07 | 77 07 70 77 07 70 77 07 |wpw...w.|w.pw.pw.|
|00000750| 77 00 00 70 77 70 90 03 | 77 90 05 70 77 90 04 70 |w..pwp..|w..pw..p|
|00000760| 77 77 00 00 77 90 06 00 | 07 70 77 07 07 70 90 03 |ww..w...|.pw..p..|
|00000770| 07 77 00 90 03 77 90 03 | 07 77 70 77 90 03 70 77 |.w...w..|.wpw..pw|
|00000780| 77 07 70 77 90 03 70 00 | 00 07 77 70 07 77 07 77 |w.pw..p.|..wp.w.w|
|00000790| 90 03 70 70 77 90 03 00 | 77 90 03 00 00 77 90 06 |..ppw...|w....w..|
|000007a0| 70 07 70 77 90 04 70 77 | 70 77 70 00 00 77 70 77 |p.pw..pw|pwp..wpw|
|000007b0| 70 07 90 04 77 77 07 70 | 77 77 70 70 77 77 00 00 |p...ww.p|wwppww..|
|000007c0| 77 07 77 90 06 07 07 77 | 90 08 00 00 77 77 70 77 |w.w....w|....wwpw|
|000007d0| 70 77 07 77 90 06 07 77 | 77 70 70 00 00 77 90 06 |pw.w...w|wpp..w..|
|000007e0| 70 07 77 90 03 70 70 07 | 77 90 03 70 00 00 07 77 |p.w..pp.|w..p...w|
|000007f0| 90 03 07 77 07 77 00 77 | 70 77 77 70 77 70 77 77 |...w.w.w|pwwpwpww|
|00000800| 88 d4 46 69 6c 65 44 61 | 74 61 83 41 4e 4f 4d 41 |..FileDa|ta.ANOMA|
|00000810| 4c 59 00 0d 39 39 01 04 | 00 00 41 fb ff ff 12 a3 |LY..99..|..A.....|
|00000820| 2f 58 03 00 ab 6c 0d 00 | 0a 18 20 f4 20 20 2a 2a |/X...l..|.. .  **|
|00000830| 20 20 3e 41 4e 4f 4d 41 | 4c 59 20 20 2a 2a 0d 00 |  >ANOMA|LY  **..|
|00000840| 14 06 20 db 0d 00 1e a0 | 20 f1 27 27 8a 35 29 3b |.. .....| .''.5);|
|00000850| 22 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 66 69 |"This ro|utine fi|
|00000860| 6e 64 73 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |nds the |value of|
|00000870| 20 74 68 65 20 65 63 63 | 65 6e 74 72 69 63 20 61 | the ecc|entric a|
|00000880| 6e 64 20 74 72 75 65 20 | 61 6e 6f 6d 61 6c 69 65 |nd true |anomalie|
|00000890| 73 20 90 10 69 6e 20 65 | 6c 6c 69 70 74 69 63 61 |s ..in e|lliptica|
|000008a0| 6c 20 6d 6f 74 69 6f 6e | 2c 20 67 69 76 65 6e 20 |l motion|, given |
|000008b0| 74 68 65 20 6d 65 61 6e | 20 61 6e 6f 6d 61 6c 79 |the mean| anomaly|
|000008c0| 20 61 6e 64 20 74 68 65 | 20 65 63 63 65 6e 74 72 | and the| eccentr|
|000008d0| 69 63 69 74 79 2e 22 0d | 00 28 44 20 f4 20 90 07 |icity.".|.(D . ..|
|000008e0| 2a 90 37 0d 00 32 06 20 | 3a 0d 00 3c 1a 20 dd a4 |*.7..2. |:..<. ..|
|000008f0| 44 45 47 28 57 29 3d 35 | 2e 37 32 39 35 37 38 45 |DEG(W)=5|.729578E|
|00000900| 31 2a 57 0d 00 46 1b 20 | dd a4 52 41 44 28 57 29 |1*W..F. |..RAD(W)|
|00000910| 3d 31 2e 37 34 35 33 32 | 39 45 2d 32 2a 57 0d 00 |=1.74532|9E-2*W..|
|00000920| 50 06 20 f1 0d 00 5a 23 | 20 f1 27 27 22 53 6f 6c |P. ...Z#| .''"Sol|
|00000930| 76 69 6e 67 20 4b 65 70 | 6c 65 72 27 73 20 65 71 |ving Kep|ler's eq|
|00000940| 75 61 74 69 6f 6e 22 0d | 00 64 06 20 f1 0d 00 6e |uation".|.d. ...n|
|00000950| 21 20 e8 22 4d 65 61 6e | 20 61 6e 6f 6d 61 6c 79 |! ."Mean| anomaly|
|00000960| 20 28 64 65 67 72 65 65 | 73 29 22 3b 4d 41 0d 00 | (degree|s)";MA..|
|00000970| 78 16 20 e8 22 45 63 63 | 65 6e 74 72 69 63 69 74 |x. ."Ecc|entricit|
|00000980| 79 22 3b 53 0d 00 82 19 | 20 4d 41 3d a4 52 41 44 |y";S....| MA=.RAD|
|00000990| 28 4d 41 29 3a f2 41 6e | 6f 6d 61 6c 79 0d 00 8c |(MA):.An|omaly...|
|000009a0| 1c 20 45 41 3d a4 44 45 | 47 28 45 41 29 3a 4e 55 |. EA=.DE|G(EA):NU|
|000009b0| 3d a4 44 45 47 28 4e 55 | 29 0d 00 96 06 20 f1 0d |=.DEG(NU|).... ..|
|000009c0| 00 a0 25 20 f1 22 45 63 | 63 65 6e 74 72 69 63 20 |..% ."Ec|centric |
|000009d0| 61 6e 6f 6d 61 6c 79 20 | 28 64 65 67 2e 29 3a 20 |anomaly |(deg.): |
|000009e0| 22 3b 45 41 0d 00 aa 25 | 20 f1 22 54 72 75 65 20 |";EA...%| ."True |
|000009f0| 61 6e 6f 6d 61 6c 79 20 | 90 06 28 64 65 67 2e 29 |anomaly |..(deg.)|
|00000a00| 3a 20 22 3b 4e 55 0d 00 | b4 06 20 f1 0d 00 be 17 |: ";NU..|.. .....|
|00000a10| 20 e8 22 41 67 61 69 6e | 20 28 59 2f 4e 29 22 3b | ."Again| (Y/N)";|
|00000a20| 41 4e 24 0d 00 c8 16 20 | e7 20 41 4e 24 3d 22 4e |AN$.... |. AN$="N|
|00000a30| 22 20 e0 20 8b 8d 44 64 | 40 0d 00 d2 06 20 3a 0d |" . ..Dd|@.... :.|
|00000a40| 00 dc 0e 20 dd f2 41 6e | 6f 6d 61 6c 79 0d 00 e6 |... ..An|omaly...|
|00000a50| 0c 20 54 50 49 3d 32 2a | af 0d 00 f0 1c 20 4d 3d |. TPI=2*|..... M=|
|00000a60| 4d 41 2d 54 50 49 2a a8 | 28 4d 41 2f 54 50 49 29 |MA-TPI*.|(MA/TPI)|
|00000a70| 3a 45 41 3d 4d 0d 00 fa | 17 20 44 4c 41 3d 45 41 |:EA=M...|. DLA=EA|
|00000a80| 2d 28 53 2a b5 28 45 41 | 29 29 2d 4d 0d 01 04 18 |-(S*.(EA|))-M....|
|00000a90| 20 e7 20 94 28 44 4c 41 | 29 3c 31 45 2d 36 20 8c | . .(DLA|)<1E-6 .|
|00000aa0| 8d 54 62 41 0d 01 0e 1a | 20 44 4c 41 3d 44 4c 41 |.TbA....| DLA=DLA|
|00000ab0| 2f 28 31 2d 28 53 2a 9b | 28 45 41 29 90 03 0d 01 |/(1-(S*.|(EA)....|
|00000ac0| 18 15 20 45 41 3d 45 41 | 2d 44 4c 41 3a e5 20 8d |.. EA=EA|-DLA:. .|
|00000ad0| 64 7a 40 0d 01 22 20 20 | 54 4e 55 32 3d b6 28 28 |dz@.."  |TNU2=.((|
|00000ae0| 31 2b 53 29 2f 28 31 2d | 53 29 29 2a b7 28 45 41 |1+S)/(1-|S))*.(EA|
|00000af0| 2f 32 29 0d 01 2c 11 20 | 4e 55 3d 32 2a 99 28 54 |/2)..,. |NU=2*.(T|
|00000b00| 4e 55 32 29 0d 01 36 06 | 20 e1 0d 01 40 06 20 3a |NU2)..6.| ...@. :|
|00000b10| 0d 01 4a 3d 20 f4 20 41 | 63 6b 6e 6f 77 6c 65 64 |..J= . A|cknowled|
|00000b20| 67 65 6d 65 6e 74 3a 20 | 41 53 54 52 4f 4e 4f 4d |gement: |ASTRONOM|
|00000b30| 59 20 57 49 54 48 20 59 | 4f 55 52 20 50 45 52 53 |Y WITH Y|OUR PERS|
|00000b40| 4f 4e 41 4c 20 43 4f 4d | 50 55 54 45 52 0d 01 54 |ONAL COM|PUTER..T|
|00000b50| 2b 20 f4 20 90 12 50 65 | 74 65 72 20 44 75 66 66 |+ . ..Pe|ter Duff|
|00000b60| 65 74 74 2d 53 6d 69 74 | 68 0d 01 5e 38 20 f4 20 |ett-Smit|h..^8 . |
|00000b70| 90 12 43 61 6d 62 72 69 | 64 67 65 20 55 6e 69 76 |..Cambri|dge Univ|
|00000b80| 65 72 73 69 74 79 20 50 | 72 65 73 73 20 20 31 39 |ersity P|ress  19|
|00000b90| 38 35 0d 01 68 2d 20 f4 | 20 41 64 61 70 74 65 64 |85..h- .| Adapted|
|00000ba0| 20 62 79 3a 20 90 06 44 | 41 41 46 20 44 75 6c 77 | by: ..D|AAF Dulw|
|00000bb0| 69 63 68 20 44 65 63 20 | 31 39 38 38 0d ff 46 69 |ich Dec |1988..Fi|
|00000bc0| 6c 65 44 61 74 61 83 43 | 41 4c 44 41 59 00 39 0d |leData.C|ALDAY.9.|
|00000bd0| 39 39 68 06 00 00 41 fb | ff ff bd 00 ac 57 03 00 |99h...A.|.....W..|
|00000be0| 98 32 0d 00 0a 18 20 f4 | 20 90 03 2a 2a 20 20 3e |.2.... .| ..**  >|
|00000bf0| 43 41 4c 44 41 59 20 20 | 2a 2a 0d 00 14 06 20 db |CALDAY  |**.... .|
|00000c00| 0d 00 1e 95 20 f1 27 27 | 8a 35 29 3b 22 54 68 69 |.... .''|.5);"Thi|
|00000c10| 73 20 72 6f 75 74 69 6e | 65 20 63 6f 6e 76 65 72 |s routin|e conver|
|00000c20| 74 73 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ts the n|umber of|
|00000c30| 20 4a 75 6c 69 61 6e 20 | 64 61 79 73 20 73 69 6e | Julian |days sin|
|00000c40| 63 65 20 31 39 30 30 20 | 4a 61 6e 20 30 2e 35 20 |ce 1900 |Jan 0.5 |
|00000c50| 90 0e 69 6e 74 6f 20 74 | 68 65 20 63 61 6c 65 6e |..into t|he calen|
|00000c60| 64 61 72 20 64 61 74 65 | 2c 20 74 68 65 20 69 6e |dar date|, the in|
|00000c70| 76 65 72 73 65 20 66 75 | 6e 63 74 69 6f 6e 20 6f |verse fu|nction o|
|00000c80| 66 20 4a 55 4c 44 41 59 | 2e 22 0d 00 28 06 20 3a |f JULDAY|."..(. :|
|00000c90| 0d 00 32 0e 20 de 20 46 | 4c 41 47 28 32 29 0d 00 |..2. . F|LAG(2)..|
|00000ca0| 3c 0e 20 46 4c 41 47 28 | 30 29 3d 31 0d 00 46 27 |<. FLAG(|0)=1..F'|
|00000cb0| 20 f1 27 90 03 22 4a 75 | 6c 69 61 6e 20 64 61 79 | .'.."Ju|lian day|
|00000cc0| 73 20 74 6f 20 63 61 6c | 65 6e 64 61 72 20 64 61 |s to cal|endar da|
|00000cd0| 74 65 22 0d 00 50 10 20 | f1 3a 46 4c 41 47 28 32 |te"..P. |.:FLAG(2|
|00000ce0| 29 3d 30 0d 00 5a 25 20 | e8 22 43 6f 6e 76 65 72 |)=0..Z% |."Conver|
|00000cf0| 74 20 4a 44 20 28 31 29 | 20 6f 72 20 44 4a 44 20 |t JD (1)| or DJD |
|00000d00| 28 32 29 22 3b 41 4e 53 | 0d 00 64 12 20 e7 20 41 |(2)";ANS|..d. . A|
|00000d10| 4e 53 3d 31 20 8c 8d 74 | 42 40 0d 00 6e 25 20 e8 |NS=1 ..t|B@..n% .|
|00000d20| 22 4a 20 64 61 79 73 20 | 73 69 6e 63 65 20 31 39 |"J days |since 19|
|00000d30| 30 30 20 4a 61 6e 20 30 | 2e 35 22 3b 44 4a 44 0d |00 Jan 0|.5";DJD.|
|00000d40| 00 78 0b 20 e5 20 8d 74 | 56 40 0d 00 82 16 20 e8 |.x. . .t|V@.... .|
|00000d50| 22 4a 75 6c 69 61 6e 20 | 64 61 74 65 22 3b 4a 44 |"Julian |date";JD|
|00000d60| 0d 00 8c 13 20 44 4a 44 | 3d 4a 44 2d 32 34 31 35 |.... DJD|=JD-2415|
|00000d70| 30 32 30 0d 00 96 15 20 | f2 43 61 6c 64 61 79 3a |020.... |.Calday:|
|00000d80| 49 44 3d a8 28 44 59 29 | 0d 00 a0 2b 20 f1 22 43 |ID=.(DY)|...+ ."C|
|00000d90| 61 6c 65 6e 64 61 72 20 | 64 61 74 65 20 69 73 3a |alendar |date is:|
|00000da0| 20 22 3b 49 44 3b 22 2f | 22 3b 4d 4e 3b 22 2f 22 | ";ID;"/|";MN;"/"|
|00000db0| 3b 59 52 0d 00 aa 19 20 | 58 3d 46 2a 32 34 3a 53 |;YR.... |X=F*24:S|
|00000dc0| 57 31 3d 31 3a f2 4d 69 | 6e 73 65 63 0d 00 b4 2b |W1=1:.Mi|nsec...+|
|00000dd0| 20 f1 22 20 2e 90 03 20 | 61 6e 64 20 74 69 6d 65 | ." ... |and time|
|00000de0| 20 69 73 3a 20 22 3b 58 | 44 3b 22 3a 22 3b 58 4d | is: ";X|D;":";XM|
|00000df0| 3b 22 3a 22 3b 58 53 0d | 00 be 06 20 f1 0d 00 c8 |;":";XS.|... ....|
|00000e00| 17 20 e8 22 41 67 61 69 | 6e 20 28 59 2f 4e 29 22 |. ."Agai|n (Y/N)"|
|00000e10| 3b 41 4e 24 0d 00 d2 14 | 20 e7 20 41 4e 24 3d 22 |;AN$....| . AN$="|
|00000e20| 59 22 20 8c 8d 44 50 40 | 0d 00 dc 06 20 e0 0d 00 |Y" ..DP@|.... ...|
|00000e30| e6 06 20 3a 0d 00 f0 0d | 20 dd f2 4d 69 6e 73 65 |.. :....| ..Minse|
|00000e40| 63 0d 00 fa 1d 20 e7 20 | 53 57 31 3d 31 20 f2 4d |c.... . |SW1=1 .M|
|00000e50| 69 6e 73 65 63 5f 49 6e | 74 65 67 65 72 73 0d 01 |insec_In|tegers..|
|00000e60| 04 1d 20 e7 20 53 57 31 | 3d 2d 31 20 f2 4d 69 6e |.. . SW1|=-1 .Min|
|00000e70| 73 65 63 5f 44 65 63 69 | 6d 61 6c 0d 01 0e 06 20 |sec_Deci|mal.... |
|00000e80| e1 0d 01 18 06 20 3a 0d | 01 22 16 20 dd f2 4d 69 |..... :.|.". ..Mi|
|00000e90| 6e 73 65 63 5f 49 6e 74 | 65 67 65 72 73 0d 01 2c |nsec_Int|egers..,|
|00000ea0| 1d 20 53 4e 3d b4 28 58 | 29 3a 58 50 3d 94 28 58 |. SN=.(X|):XP=.(X|
|00000eb0| 29 3a 58 44 3d a8 28 58 | 50 29 0d 01 36 19 20 41 |):XD=.(X|P)..6. A|
|00000ec0| 3d 28 58 50 2d 58 44 29 | 2a 36 30 3a 58 4d 3d a8 |=(XP-XD)|*60:XM=.|
|00000ed0| 28 41 29 0d 01 40 1c 20 | 58 53 3d a8 28 28 41 2d |(A)..@. |XS=.((A-|
|00000ee0| 58 4d 29 2a 36 30 30 2b | 30 2e 35 29 2f 31 30 0d |XM)*600+|0.5)/10.|
|00000ef0| 01 4a 0b 20 53 24 3d 22 | 2b 22 0d 01 54 16 20 e7 |.J. S$="|+"..T. .|
|00000f00| 20 53 4e 3d 2d 31 20 20 | 8c 20 53 24 3d 22 2d 22 | SN=-1  |. S$="-"|
|00000f10| 0d 01 5e 06 20 e1 0d 01 | 68 06 20 3a 0d 01 72 15 |..^. ...|h. :..r.|
|00000f20| 20 dd f2 4d 69 6e 73 65 | 63 5f 44 65 63 69 6d 61 | ..Minse|c_Decima|
|00000f30| 6c 0d 01 7c 0a 20 53 4e | 3d 2b 31 0d 01 86 21 20 |l..|. SN|=+1...! |
|00000f40| e7 20 58 44 3c 30 20 84 | 20 58 4d 3c 30 20 84 20 |. XD<0 .| XM<0 . |
|00000f50| 58 53 3c 30 20 8c 20 53 | 4e 3d 2d 31 0d 01 90 00 |XS<0 . S|N=-1....|
|00000f60| 22 20 58 44 31 3d 94 28 | 58 44 29 3a 58 4d 31 3d |" XD1=.(|XD):XM1=|
|00000f70| 94 28 58 4d 29 3a 58 53 | 31 3d 94 28 58 53 29 0d |.(XM):XS|1=.(XS).|
|00000f80| 01 9a 23 20 58 3d 28 90 | 04 58 53 31 2f 36 30 29 |..# X=(.|.XS1/60)|
|00000f90| 2b 58 4d 31 29 2f 36 30 | 29 2b 58 44 31 29 2a 53 |+XM1)/60|)+XD1)*S|
|00000fa0| 4e 0d 01 a4 06 20 e1 0d | 01 ae 06 20 3a 0d 01 b8 |N.... ..|... :...|
|00000fb0| 0d 20 dd f2 43 61 6c 64 | 61 79 0d 01 c2 12 20 e7 |. ..Cald|ay.... .|
|00000fc0| 20 46 4c 41 47 28 32 29 | 3d 31 20 e1 0d 01 cc 2c | FLAG(2)|=1 ....,|
|00000fd0| 20 dd a4 4c 49 46 28 57 | 29 3d a8 28 57 29 2d 28 | ..LIF(W|)=.(W)-(|
|00000fe0| 46 4c 41 47 28 30 29 2d | 31 29 2a a8 28 28 b4 28 |FLAG(0)-|1)*.((.(|
|00000ff0| 57 29 2d 31 29 2f 32 29 | 0d 01 d6 1e 20 44 3d 44 |W)-1)/2)|.... D=D|
|00001000| 4a 44 2b 30 2e 35 3a 49 | 3d a4 4c 49 46 28 44 29 |JD+0.5:I|=.LIF(D)|
|00001010| 3a 46 3d 44 2d 49 0d 01 | e0 15 20 e7 20 46 3d 31 |:F=D-I..|.. . F=1|
|00001020| 20 8c 20 46 3d 30 3a 49 | 2b 3d 31 0d 01 ea 1a 20 | . F=0:I|+=1.... |
|00001030| e7 20 49 20 3c 3d 20 2d | 31 31 35 38 36 30 20 8c |. I <= -|115860 .|
|00001040| 20 8d 54 48 42 0d 01 f4 | 29 20 41 3d a4 4c 49 46 | .THB...|) A=.LIF|
|00001050| 28 28 49 2f 33 36 35 32 | 34 2e 32 35 29 2b 39 2e |((I/3652|4.25)+9.|
|00001060| 39 38 33 35 37 32 36 45 | 2d 31 29 2b 31 34 0d 01 |9835726E|-1)+14..|
|00001070| fe 16 20 49 3d 49 2b 31 | 2b 41 2d a4 4c 49 46 28 |.. I=I+1|+A-.LIF(|
|00001080| 41 2f 34 29 0d 02 08 22 | 20 42 3d a4 4c 49 46 28 |A/4)..."| B=.LIF(|
|00001090| 28 49 2f 33 36 35 2e 32 | 35 29 2b 38 2e 30 32 36 |(I/365.2|5)+8.026|
|000010a0| 30 31 45 2d 31 29 0d 02 | 12 29 20 43 45 3d 49 2d |01E-1)..|.) CE=I-|
|000010b0| a4 4c 49 46 28 28 33 36 | 35 2e 32 35 2a 42 29 2b |.LIF((36|5.25*B)+|
|000010c0| 37 2e 35 30 90 03 31 45 | 2d 31 29 2b 34 31 36 0d |7.50..1E|-1)+416.|
|000010d0| 02 1c 1e 20 47 3d a4 4c | 49 46 28 43 45 2f 33 30 |... G=.L|IF(CE/30|
|000010e0| 2e 36 30 30 31 29 3a 4d | 4e 3d 47 2d 31 0d 02 26 |.6001):M|N=G-1..&|
|000010f0| 26 20 44 59 3d 43 45 2d | a4 4c 49 46 28 33 30 2e |& DY=CE-|.LIF(30.|
|00001100| 36 30 30 31 2a 47 29 2b | 46 3a 59 52 3d 42 2b 31 |6001*G)+|F:YR=B+1|
|00001110| 38 39 39 0d 02 30 17 20 | e7 20 47 3e 31 33 2e 35 |899..0. |. G>13.5|
|00001120| 20 8c 20 4d 4e 3d 47 2d | 31 33 0d 02 3a 19 20 e7 | . MN=G-|13..:. .|
|00001130| 20 4d 4e 3c 32 2e 35 20 | 8c 20 59 52 3d 42 2b 31 | MN<2.5 |. YR=B+1|
|00001140| 39 30 30 0d 02 44 13 20 | e7 20 59 52 3c 31 20 8c |900..D. |. YR<1 .|
|00001150| 20 59 52 2d 3d 31 0d 02 | 4e 0e 20 46 4c 41 47 28 | YR-=1..|N. FLAG(|
|00001160| 32 29 3d 31 0d 02 58 06 | 20 e1 0d 02 62 06 20 3a |2)=1..X.| ...b. :|
|00001170| 0d 02 6c 3d 20 f4 20 41 | 63 6b 6e 6f 77 6c 65 64 |..l= . A|cknowled|
|00001180| 67 65 6d 65 6e 74 3a 20 | 41 53 54 52 4f 4e 4f 4d |gement: |ASTRONOM|
|00001190| 59 20 57 49 54 48 20 59 | 4f 55 52 20 50 45 52 53 |Y WITH Y|OUR PERS|
|000011a0| 4f 4e 41 4c 20 43 4f 4d | 50 55 54 45 52 0d 02 76 |ONAL COM|PUTER..v|
|000011b0| 2b 20 f4 20 90 12 50 65 | 74 65 72 20 44 75 66 66 |+ . ..Pe|ter Duff|
|000011c0| 65 74 74 2d 53 6d 69 74 | 68 0d 02 80 38 20 f4 20 |ett-Smit|h...8 . |
|000011d0| 90 12 43 61 6d 62 72 69 | 64 67 65 20 55 6e 69 76 |..Cambri|dge Univ|
|000011e0| 65 72 73 69 74 79 20 50 | 72 65 73 73 20 20 31 39 |ersity P|ress  19|
|000011f0| 38 35 0d 02 8a 2d 20 f4 | 20 41 64 61 70 74 65 64 |85...- .| Adapted|
|00001200| 20 62 79 3a 20 90 06 44 | 41 41 46 20 44 75 6c 77 | by: ..D|AAF Dulw|
|00001210| 69 63 68 20 44 65 63 20 | 31 39 38 38 0d ff 46 69 |ich Dec |1988..Fi|
|00001220| 6c 65 44 61 74 61 83 43 | 4f 4d 45 54 00 39 39 0d |leData.C|OMET.99.|
|00001230| 39 39 82 17 00 00 45 fd | ff ff 2f 02 b8 c7 03 00 |99....E.|../.....|
|00001240| 00 00 0d 00 0a 16 20 f4 | 20 2a 2a 20 90 03 3e 43 |...... .| ** ..>C|
|00001250| 4f 4d 45 54 20 20 2a 2a | 0d 00 14 06 20 3a 0d 00 |OMET  **|.... :..|
|00001260| 1e 83 20 f4 20 54 68 69 | 73 20 72 6f 75 74 69 6e |.. . Thi|s routin|
|00001270| 65 20 63 61 6c 63 75 6c | 61 74 65 73 20 74 68 65 |e calcul|ates the|
|00001280| 20 65 63 6c 69 70 74 69 | 63 20 63 6f 6f 72 64 69 | eclipti|c coordi|
|00001290| 6e 61 74 65 73 20 6f 66 | 20 61 20 63 6f 6d 65 74 |nates of| a comet|
|000012a0| 20 61 74 20 61 20 90 0a | 67 69 76 65 6e 20 69 6e | at a ..|given in|
|000012b0| 73 74 61 6e 74 20 66 72 | 6f 6d 20 69 74 73 20 70 |stant fr|om its p|
|000012c0| 61 72 61 62 6f 6c 69 63 | 20 6f 72 62 69 74 61 6c |arabolic| orbital|
|000012d0| 20 65 6c 65 6d 65 6e 74 | 73 2e 0d 00 28 42 20 f4 | element|s...(B .|
|000012e0| 20 90 04 2a 90 38 0d 00 | 32 06 20 3a 0d 00 3c 0e | ..*.8..|2. :..<.|
|000012f0| 20 de 20 46 4c 41 47 28 | 37 29 0d 00 46 1e 20 dd | . FLAG(|7)..F. .|
|00001300| a4 52 41 44 28 57 29 3d | 31 2e 37 34 35 33 32 39 |.RAD(W)=|1.745329|
|00001310| 32 35 32 45 2d 32 2a 57 | 0d 00 50 1d 20 dd a4 44 |252E-2*W|..P. ..D|
|00001320| 45 47 28 57 29 3d 35 2e | 37 32 39 35 37 37 39 35 |EG(W)=5.|72957795|
|00001330| 31 45 31 2a 57 0d 00 5a | 1c 20 dd a4 52 4f 55 28 |1E1*W..Z|. ..ROU(|
|00001340| 58 2c 59 29 3d a8 28 58 | 2a 59 2b 30 2e 35 29 2f |X,Y)=.(X|*Y+0.5)/|
|00001350| 59 0d 00 64 23 20 dd a4 | 41 53 4e 28 57 29 3d 99 |Y..d# ..|ASN(W)=.|
|00001360| 28 57 2f 28 b6 28 31 2d | 57 2a 57 29 2b 31 45 2d |(W/(.(1-|W*W)+1E-|
|00001370| 32 30 29 29 0d 00 6e 21 | 20 dd a4 41 43 53 28 57 |20))..n!| ..ACS(W|
|00001380| 29 3d 31 2e 35 37 30 37 | 39 36 33 32 37 2d a4 41 |)=1.5707|96327-.A|
|00001390| 53 4e 28 57 29 0d 00 78 | 18 20 f1 3a 46 4c 41 47 |SN(W)..x|. .:FLAG|
|000013a0| 28 30 29 3d 31 3a 54 50 | 49 3d 32 2a af 0d 00 82 |(0)=1:TP|I=2*....|
|000013b0| 0e 20 f1 22 43 6f 6d 65 | 74 73 22 0d 00 8c 06 20 |. ."Come|ts".... |
|000013c0| f1 0d 00 96 28 20 f1 22 | 50 6c 65 61 73 65 20 69 |....( ."|Please i|
|000013d0| 6e 70 75 74 20 70 61 72 | 61 62 6f 6c 69 63 20 65 |nput par|abolic e|
|000013e0| 6c 65 6d 65 6e 74 73 3a | 22 0d 00 a0 2d 20 e8 22 |lements:|"...- ."|
|000013f0| 45 70 6f 63 68 20 6f 66 | 20 70 65 72 69 68 65 6c |Epoch of| perihel|
|00001400| 69 6f 6e 20 20 28 44 2c | 4d 2c 59 29 22 3b 44 59 |ion  (D,|M,Y)";DY|
|00001410| 2c 4d 4e 2c 59 52 0d 00 | aa 24 20 e8 22 50 65 72 |,MN,YR..|.$ ."Per|
|00001420| 69 68 65 6c 69 6f 6e 20 | 64 69 73 74 61 6e 63 65 |ihelion |distance|
|00001430| 20 20 28 41 55 29 22 3b | 51 50 0d 00 b4 28 20 e8 |  (AU)";|QP...( .|
|00001440| 22 49 6e 63 6c 69 6e 61 | 74 69 6f 6e 20 6f 66 20 |"Inclina|tion of |
|00001450| 6f 72 62 69 74 20 28 64 | 65 67 2e 29 22 3b 49 4e |orbit (d|eg.)";IN|
|00001460| 43 30 0d 00 be 28 20 e8 | 22 41 72 67 75 6d 65 6e |C0...( .|"Argumen|
|00001470| 74 20 6f 66 20 70 65 72 | 69 68 65 6c 69 6f 6e 28 |t of per|ihelion(|
|00001480| 64 65 67 2e 29 22 3b 41 | 50 30 0d 00 c8 28 20 e8 |deg.)";A|P0...( .|
|00001490| 22 4c 6f 6e 67 2e 20 6f | 66 20 61 73 63 2e 20 6d |"Long. o|f asc. m|
|000014a0| 6f 64 65 20 90 04 28 64 | 65 67 2e 29 22 3b 4f 4d |ode ..(d|eg.)";OM|
|000014b0| 30 0d 00 d2 31 20 e8 22 | 2e 90 03 20 72 65 66 65 |0...1 ."|... refe|
|000014c0| 72 72 65 64 20 74 6f 20 | 65 70 6f 63 68 20 28 44 |rred to |epoch (D|
|000014d0| 2c 4d 2c 59 29 22 3b 44 | 59 41 2c 4d 4e 41 2c 59 |,M,Y)";D|YA,MNA,Y|
|000014e0| 52 41 0d 00 dc 1f 20 46 | 4c 41 47 28 31 29 3d 30 |RA.... F|LAG(1)=0|
|000014f0| 3a f2 4a 75 6c 64 61 79 | 3a 44 4a 44 30 3d 44 4a |:.Julday|:DJD0=DJ|
|00001500| 44 0d 00 e6 22 20 49 4e | 43 30 3d a4 52 41 44 28 |D..." IN|C0=.RAD(|
|00001510| 49 4e 43 30 29 3a 41 50 | 30 3d a4 52 41 44 28 41 |INC0):AP|0=.RAD(A|
|00001520| 50 30 29 0d 00 f0 12 20 | 4f 4d 30 3d a4 52 41 44 |P0).... |OM0=.RAD|
|00001530| 28 4f 4d 30 29 0d 00 fa | 06 20 f1 0d 01 04 20 20 |(OM0)...|. ....  |
|00001540| e8 22 44 61 74 65 20 28 | 44 2c 4d 2c 59 29 22 3b |."Date (|D,M,Y)";|
|00001550| 44 59 42 2c 4d 4e 42 2c | 59 52 42 0d 01 0e 16 20 |DYB,MNB,|YRB.... |
|00001560| f2 52 65 64 65 6c 6d 74 | 3a f2 43 6f 6d 65 74 3a |.Redelmt|:.Comet:|
|00001570| f1 0d 01 18 21 20 f1 22 | 48 65 6c 69 6f 63 65 6e |....! ."|Heliocen|
|00001580| 74 72 69 63 20 63 6f 6f | 72 64 69 6e 61 74 65 73 |tric coo|rdinates|
|00001590| 3a 22 0d 01 22 1d 20 58 | 3d a4 44 45 47 28 4c 44 |:"..". X|=.DEG(LD|
|000015a0| 29 3a 53 57 31 3d 31 3a | f2 4d 69 6e 73 65 63 0d |):SW1=1:|.Minsec.|
|000015b0| 01 2c 38 20 f1 8a 31 30 | 29 3b 22 6c 6f 6e 67 69 |.,8 ..10|);"longi|
|000015c0| 74 75 64 65 20 28 44 2c | 4d 2c 53 29 3a 22 3b 8a |tude (D,|M,S):";.|
|000015d0| 33 35 29 3b 53 24 3b 58 | 44 3b 22 20 22 3b 58 4d |35);S$;X|D;" ";XM|
|000015e0| 3b 22 20 22 3b 58 53 0d | 01 36 18 20 58 3d a4 44 |;" ";XS.|.6. X=.D|
|000015f0| 45 47 28 50 53 49 29 3a | f2 4d 69 6e 73 65 63 0d |EG(PSI):|.Minsec.|
|00001600| 01 40 38 20 f1 8a 31 30 | 29 3b 22 6c 61 74 69 74 |.@8 ..10|);"latit|
|00001610| 75 64 65 20 20 28 44 2c | 4d 2c 53 29 3a 22 3b 8a |ude  (D,|M,S):";.|
|00001620| 33 35 29 3b 53 24 3b 58 | 44 3b 22 20 22 3b 58 4d |35);S$;X|D;" ";XM|
|00001630| 3b 22 20 22 3b 58 53 0d | 01 4a 31 20 f1 8a 31 30 |;" ";XS.|.J1 ..10|
|00001640| 29 3b 22 72 61 64 69 75 | 73 20 76 65 63 74 6f 72 |);"radiu|s vector|
|00001650| 28 41 55 29 3a 22 3b 8a | 33 35 29 3b a4 52 4f 55 |(AU):";.|35);.ROU|
|00001660| 28 52 2c 31 30 90 03 29 | 0d 01 54 21 20 f1 3a f1 |(R,10..)|..T! .:.|
|00001670| 22 47 65 6f 63 65 6e 74 | 72 69 63 20 63 6f 6f 72 |"Geocent|ric coor|
|00001680| 64 69 6e 61 74 65 73 3a | 22 0d 01 5e 18 20 58 3d |dinates:|"..^. X=|
|00001690| a4 44 45 47 28 4c 41 4d | 29 3a f2 4d 69 6e 73 65 |.DEG(LAM|):.Minse|
|000016a0| 63 0d 01 68 38 20 f1 8a | 31 30 29 3b 22 6c 6f 6e |c..h8 ..|10);"lon|
|000016b0| 67 69 74 75 64 65 20 28 | 44 2c 4d 2c 53 29 3a 22 |gitude (|D,M,S):"|
|000016c0| 3b 8a 33 35 29 3b 53 24 | 3b 58 44 3b 22 20 22 3b |;.35);S$|;XD;" ";|
|000016d0| 58 4d 3b 22 20 22 3b 58 | 53 0d 01 72 18 20 58 3d |XM;" ";X|S..r. X=|
|000016e0| a4 44 45 47 28 42 45 54 | 29 3a f2 4d 69 6e 73 65 |.DEG(BET|):.Minse|
|000016f0| 63 0d 01 7c 38 20 f1 8a | 31 30 29 3b 22 6c 61 74 |c..|8 ..|10);"lat|
|00001700| 69 74 75 64 65 20 20 28 | 44 2c 4d 2c 53 29 3a 22 |itude  (|D,M,S):"|
|00001710| 3b 8a 33 35 29 3b 53 24 | 3b 58 44 3b 22 20 22 3b |;.35);S$|;XD;" ";|
|00001720| 58 4d 3b 22 20 22 3b 58 | 53 0d 01 86 39 20 f1 8a |XM;" ";X|S...9 ..|
|00001730| 31 30 29 3b 22 64 69 73 | 74 2e 20 66 72 6f 6d 20 |10);"dis|t. from |
|00001740| 45 61 72 74 68 20 90 03 | 28 41 55 29 3a 22 3b 8a |Earth ..|(AU):";.|
|00001750| 33 35 29 3b a4 52 4f 55 | 28 52 48 4f 2c 31 30 90 |35);.ROU|(RHO,10.|
|00001760| 03 29 0d 01 90 00 21 20 | 58 3d 4c 41 4d 3a 59 3d |.)....! |X=LAM:Y=|
|00001770| 42 45 54 3a 53 57 33 3d | 2d 31 3a 46 4c 41 47 28 |BET:SW3=|-1:FLAG(|
|00001780| 35 29 3d 30 0d 01 9a 15 | 20 46 4c 41 47 28 37 29 |5)=0....| FLAG(7)|
|00001790| 3d 30 3a f2 45 71 65 63 | 6c 0d 01 a4 19 20 58 3d |=0:.Eqec|l.... X=|
|000017a0| a4 44 45 47 28 50 2f 31 | 35 29 3a f2 4d 69 6e 73 |.DEG(P/1|5):.Mins|
|000017b0| 65 63 0d 01 ae 3b 20 f1 | 8a 31 30 29 3b 22 72 69 |ec...; .|.10);"ri|
|000017c0| 67 68 74 20 61 73 63 65 | 6e 73 69 6f 6e 20 28 48 |ght asce|nsion (H|
|000017d0| 2c 4d 2c 53 29 3a 22 3b | 8a 33 35 29 3b 58 44 3b |,M,S):";|.35);XD;|
|000017e0| 22 20 22 3b 58 4d 3b 22 | 20 22 3b 58 53 0d 01 b8 |" ";XM;"| ";XS...|
|000017f0| 16 20 58 3d a4 44 45 47 | 28 51 29 3a f2 4d 69 6e |. X=.DEG|(Q):.Min|
|00001800| 73 65 63 0d 01 c2 3e 20 | f1 8a 31 30 29 3b 22 64 |sec...> |..10);"d|
|00001810| 65 63 6c 69 6e 61 74 69 | 6f 6e 20 90 05 28 44 2c |eclinati|on ..(D,|
|00001820| 4d 2c 53 29 3a 22 3b 8a | 33 35 29 3b 53 24 3b 58 |M,S):";.|35);S$;X|
|00001830| 44 3b 22 20 22 3b 58 4d | 3b 22 20 22 3b 58 53 0d |D;" ";XM|;" ";XS.|
|00001840| 01 cc 29 20 45 4c 3d a4 | 41 43 53 28 2d 31 2a 43 |..) EL=.|ACS(-1*C|
|00001850| 59 2a 9b 28 4c 41 4d 2d | 4c 47 29 29 3a 45 4c 3d |Y*.(LAM-|LG)):EL=|
|00001860| a4 44 45 47 28 45 4c 29 | 0d 01 d6 32 20 f1 22 53 |.DEG(EL)|...2 ."S|
|00001870| 6f 6c 61 72 20 65 6c 6f | 6e 67 61 74 69 6f 6e 20 |olar elo|ngation |
|00001880| 28 64 65 67 2e 29 3a 22 | 3b 8a 33 35 29 3b a4 52 |(deg.):"|;.35);.R|
|00001890| 4f 55 28 45 4c 2c 31 30 | 30 29 0d 01 e0 06 20 f1 |OU(EL,10|0).... .|
|000018a0| 0d 01 ea 17 20 e8 22 41 | 67 61 69 6e 20 28 59 2f |.... ."A|gain (Y/|
|000018b0| 4e 29 22 3b 41 4e 24 0d | 01 f4 10 20 e7 20 41 4e |N)";AN$.|... . AN|
|000018c0| 24 3d 22 4e 22 20 e0 0d | 01 fe 1b 20 e8 22 4e 65 |$="N" ..|... ."Ne|
|000018d0| 77 20 63 6f 6d 65 74 20 | 28 59 2f 4e 29 22 3b 41 |w comet |(Y/N)";A|
|000018e0| 4e 24 0d 02 08 1b 20 e7 | 20 41 4e 24 3d 22 59 22 |N$.... .| AN$="Y"|
|000018f0| 20 8c 20 8d 74 56 40 20 | 8b 8d 64 7a 40 0d 02 1c | . .tV@ |..dz@...|
|00001900| 06 20 3a 0d 02 26 0d 20 | dd f2 4d 69 6e 73 65 63 |. :..&. |..Minsec|
|00001910| 0d 02 30 1d 20 e7 20 53 | 57 31 3d 31 20 f2 4d 69 |..0. . S|W1=1 .Mi|
|00001920| 6e 73 65 63 5f 49 6e 74 | 65 67 65 72 73 0d 02 3a |nsec_Int|egers..:|
|00001930| 1d 20 e7 20 53 57 31 3d | 2d 31 20 f2 4d 69 6e 73 |. . SW1=|-1 .Mins|
|00001940| 65 63 5f 44 65 63 69 6d | 61 6c 0d 02 44 06 20 e1 |ec_Decim|al..D. .|
|00001950| 0d 02 4e 06 20 3a 0d 02 | 58 16 20 dd f2 4d 69 6e |..N. :..|X. ..Min|
|00001960| 73 65 63 5f 49 6e 74 65 | 67 65 72 73 0d 02 62 1d |sec_Inte|gers..b.|
|00001970| 20 53 4e 3d b4 28 58 29 | 3a 58 50 3d 94 28 58 29 | SN=.(X)|:XP=.(X)|
|00001980| 3a 58 44 3d a8 28 58 50 | 29 0d 02 6c 19 20 41 3d |:XD=.(XP|)..l. A=|
|00001990| 28 58 50 2d 58 44 29 2a | 36 30 3a 58 4d 3d a8 28 |(XP-XD)*|60:XM=.(|
|000019a0| 41 29 0d 02 76 1c 20 58 | 53 3d a8 28 28 41 2d 58 |A)..v. X|S=.((A-X|
|000019b0| 4d 29 2a 36 30 30 2b 30 | 2e 35 29 2f 31 30 0d 02 |M)*600+0|.5)/10..|
|000019c0| 80 0b 20 53 24 3d 22 2b | 22 0d 02 8a 16 20 e7 20 |.. S$="+|".... . |
|000019d0| 53 4e 3d 2d 31 20 20 8c | 20 53 24 3d 22 2d 22 0d |SN=-1  .| S$="-".|
|000019e0| 02 94 06 20 e1 0d 02 9e | 06 20 3a 0d 02 a8 15 20 |... ....|. :.... |
|000019f0| dd f2 4d 69 6e 73 65 63 | 5f 44 65 63 69 6d 61 6c |..Minsec|_Decimal|
|00001a00| 0d 02 b2 0a 20 53 4e 3d | 2b 31 0d 02 bc 21 20 e7 |.... SN=|+1...! .|
|00001a10| 20 58 44 3c 30 20 84 20 | 58 4d 3c 30 20 84 20 58 | XD<0 . |XM<0 . X|
|00001a20| 53 3c 30 20 8c 20 53 4e | 3d 2d 31 0d 02 c6 22 20 |S<0 . SN|=-1..." |
|00001a30| 58 44 31 3d 94 28 58 44 | 29 3a 58 4d 31 3d 94 28 |XD1=.(XD|):XM1=.(|
|00001a40| 58 4d 29 3a 58 53 31 3d | 94 28 58 53 29 0d 02 d0 |XM):XS1=|.(XS)...|
|00001a50| 23 20 58 3d 28 90 04 58 | 53 31 2f 36 30 29 2b 58 |# X=(..X|S1/60)+X|
|00001a60| 4d 31 29 2f 36 30 29 2b | 58 44 31 29 2a 53 4e 0d |M1)/60)+|XD1)*SN.|
|00001a70| 02 da 06 20 e1 0d 02 e4 | 06 20 3a 0d 02 ee 0d 20 |... ....|. :.... |
|00001a80| dd f2 4a 75 6c 64 61 79 | 0d 02 f8 12 20 e7 20 46 |..Julday|.... . F|
|00001a90| 4c 41 47 28 31 29 3d 31 | 20 e1 0d 03 02 20 20 4d |LAG(1)=1| ....  M|
|00001aa0| 4e 31 3d 4d 4e 3a 59 52 | 31 3d 59 52 3a 46 4c 41 |N1=MN:YR|1=YR:FLA|
|00001ab0| 47 28 31 29 3d 31 3a 42 | 3d 30 0d 03 0c 15 20 e7 |G(1)=1:B|=0.... .|
|00001ac0| 20 59 52 31 3c 30 20 8c | 20 59 52 31 2b 3d 31 0d | YR1<0 .| YR1+=1.|
|00001ad0| 03 16 1c 20 e7 20 4d 4e | 3c 33 20 8c 20 4d 4e 31 |... . MN|<3 . MN1|
|00001ae0| 2b 3d 31 32 3a 59 52 31 | 2d 3d 31 0d 03 20 15 20 |+=12:YR1|-=1.. . |
|00001af0| e7 20 59 52 3c 31 35 38 | 32 20 8c 20 8d 44 48 43 |. YR<158|2 . .DHC|
|00001b00| 0d 03 2a 1d 20 e7 20 59 | 52 3d 31 35 38 32 20 80 |..*. . Y|R=1582 .|
|00001b10| 20 4d 4e 3c 31 30 20 8c | 20 8d 44 48 43 0d 03 34 | MN<10 .| .DHC..4|
|00001b20| 25 20 e7 20 59 52 3d 31 | 35 38 32 20 80 20 4d 4e |% . YR=1|582 . MN|
|00001b30| 3d 31 30 20 80 20 44 59 | 3c 31 35 20 8c 20 8d 44 |=10 . DY|<15 . .D|
|00001b40| 48 43 0d 03 3e 1e 20 41 | 3d a8 28 59 52 31 2f 31 |HC..>. A|=.(YR1/1|
|00001b50| 30 30 29 3a 42 3d 32 2d | 41 2b a8 28 41 2f 34 29 |00):B=2-|A+.(A/4)|
|00001b60| 0d 03 48 13 20 e7 20 59 | 52 31 3c 30 20 8c 20 8d |..H. . Y|R1<0 . .|
|00001b70| 44 5c 43 0d 03 52 22 20 | 43 3d a8 28 33 36 35 2e |D\C..R" |C=.(365.|
|00001b80| 32 35 2a 59 52 31 29 2d | 36 39 34 30 32 35 3a e5 |25*YR1)-|694025:.|
|00001b90| 20 8d 44 66 43 0d 03 5c | 25 20 43 3d a4 49 54 47 | .DfC..\|% C=.ITG|
|00001ba0| 28 28 33 36 35 2e 32 35 | 2a 59 52 31 29 2d 30 2e |((365.25|*YR1)-0.|
|00001bb0| 37 35 29 2d 36 39 34 30 | 32 35 0d 03 66 19 20 44 |75)-6940|25..f. D|
|00001bc0| 3d a8 28 33 30 2e 36 30 | 30 31 2a 28 4d 4e 31 2b |=.(30.60|01*(MN1+|
|00001bd0| 31 29 29 0d 03 70 15 20 | 44 4a 44 3d 42 2b 43 2b |1))..p. |DJD=B+C+|
|00001be0| 44 2b 44 59 2d 30 2e 35 | 0d 03 7a 06 20 e1 0d 03 |D+DY-0.5|..z. ...|
|00001bf0| 84 06 20 3a 0d 03 8e 0c | 20 dd f2 4f 62 6c 69 71 |.. :....| ..Obliq|
|00001c00| 0d 03 98 12 20 e7 20 46 | 4c 41 47 28 35 29 3d 31 |.... . F|LAG(5)=1|
|00001c10| 20 e1 0d 03 a2 0e 20 46 | 4c 41 47 28 35 29 3d 31 | ..... F|LAG(5)=1|
|00001c20| 0d 03 ac 18 20 f2 4a 75 | 6c 64 61 79 3a 54 3d 44 |.... .Ju|lday:T=D|
|00001c30| 4a 44 2f 33 36 35 32 35 | 0d 03 b6 2b 20 43 3d 28 |JD/36525|...+ C=(|
|00001c40| 90 03 2d 31 2e 38 31 45 | 2d 33 2a 54 29 2b 35 2e |..-1.81E|-3*T)+5.|
|00001c50| 39 45 2d 33 29 2a 54 2b | 34 2e 36 38 34 35 45 31 |9E-3)*T+|4.6845E1|
|00001c60| 29 2a 54 0d 03 c0 1f 20 | 45 50 53 3d 32 2e 33 34 |)*T.... |EPS=2.34|
|00001c70| 35 32 32 39 34 90 03 45 | 31 2d 28 43 2f 33 36 30 |52294..E|1-(C/360|
|00001c80| 30 29 0d 03 ca 1c 20 45 | 50 53 52 3d 45 50 53 2a |0).... E|PSR=EPS*|
|00001c90| 31 2e 37 35 34 33 32 39 | 32 35 32 45 2d 32 0d 03 |1.754329|252E-2..|
|00001ca0| d4 06 20 e1 0d 03 de 06 | 20 3a 0d 03 e8 0c 20 dd |.. .....| :.... .|
|00001cb0| f2 45 71 65 63 6c 0d 03 | f2 17 20 e7 20 46 4c 41 |.Eqecl..|.. . FLA|
|00001cc0| 47 28 37 29 3d 31 20 8c | 20 8d 54 64 44 0d 03 fc |G(7)=1 .| .TdD...|
|00001cd0| 0e 20 46 4c 41 47 28 37 | 29 3d 31 0d 04 06 19 20 |. FLAG(7|)=1.... |
|00001ce0| e7 20 46 4c 41 47 28 36 | 29 3d 30 20 8c 20 44 45 |. FLAG(6|)=0 . DE|
|00001cf0| 50 53 3d 30 0d 04 10 1f | 20 f2 4f 62 6c 69 71 3a |PS=0....| .Obliq:|
|00001d00| 45 50 53 31 3d a4 52 41 | 44 28 45 50 53 2b 44 45 |EPS1=.RA|D(EPS+DE|
|00001d10| 50 53 29 0d 04 1a 1e 20 | 53 45 50 53 3d b5 28 45 |PS).... |SEPS=.(E|
|00001d20| 50 53 31 29 3a 43 45 50 | 53 3d 9b 28 45 50 53 31 |PS1):CEP|S=.(EPS1|
|00001d30| 29 0d 04 24 14 20 43 59 | 3d 9b 28 59 29 3a 53 59 |)..$. CY|=.(Y):SY|
|00001d40| 3d b5 28 59 29 0d 04 2e | 1d 20 e7 20 94 28 43 59 |=.(Y)...|. . .(CY|
|00001d50| 29 3c 31 45 2d 32 30 20 | 8c 20 43 59 3d 31 45 2d |)<1E-20 |. CY=1E-|
|00001d60| 32 30 0d 04 38 1d 20 54 | 59 3d 53 59 2f 43 59 3a |20..8. T|Y=SY/CY:|
|00001d70| 43 58 3d 9b 28 58 29 3a | 53 58 3d b5 28 58 29 0d |CX=.(X):|SX=.(X).|
|00001d80| 04 42 22 20 53 51 3d 28 | 53 59 2a 43 45 50 53 29 |.B" SQ=(|SY*CEPS)|
|00001d90| 2d 28 43 59 2a 53 45 50 | 53 2a 53 58 2a 53 57 33 |-(CY*SEP|S*SX*SW3|
|00001da0| 29 0d 04 4c 29 20 51 3d | a4 41 53 4e 28 53 51 29 |)..L) Q=|.ASN(SQ)|
|00001db0| 3a 41 3d 28 53 58 2a 43 | 45 50 53 29 2b 28 54 59 |:A=(SX*C|EPS)+(TY|
|00001dc0| 2a 53 45 50 53 2a 53 57 | 33 29 0d 04 56 0e 20 50 |*SEPS*SW|3)..V. P|
|00001dd0| 3d 99 28 41 2f 43 58 29 | 0d 04 60 13 20 e7 20 43 |=.(A/CX)|..`. . C|
|00001de0| 58 3c 30 20 8c 20 50 3d | 50 2b af 0d 04 6a 16 20 |X<0 . P=|P+...j. |
|00001df0| e7 20 50 3e 54 50 49 20 | 8c 20 50 3d 50 2d 54 50 |. P>TPI |. P=P-TP|
|00001e00| 49 0d 04 74 14 20 e7 20 | 50 3c 30 20 8c 20 50 3d |I..t. . |P<0 . P=|
|00001e10| 50 2b 54 50 49 0d 04 7e | 06 20 e1 0d 04 88 06 20 |P+TPI..~|. ..... |
|00001e20| 3a 0d 04 92 0e 20 dd f2 | 41 6e 6f 6d 61 6c 79 0d |:.... ..|Anomaly.|
|00001e30| 04 9c 1c 20 4d 3d 4d 41 | 2d 54 50 49 2a a8 28 4d |... M=MA|-TPI*.(M|
|00001e40| 41 2f 54 50 49 29 3a 45 | 41 3d 4d 0d 04 a6 17 20 |A/TPI):E|A=M.... |
|00001e50| 44 4c 41 3d 45 41 2d 28 | 53 2a b5 28 45 41 29 29 |DLA=EA-(|S*.(EA))|
|00001e60| 2d 4d 0d 04 b0 18 20 e7 | 20 94 28 44 4c 41 29 3c |-M.... .| .(DLA)<|
|00001e70| 31 45 2d 36 20 8c 8d 64 | 4e 44 0d 04 ba 1a 20 44 |1E-6 ..d|ND.... D|
|00001e80| 4c 41 3d 44 4c 41 2f 28 | 31 2d 28 53 2a 9b 28 45 |LA=DLA/(|1-(S*.(E|
|00001e90| 41 29 90 03 0d 04 c4 15 | 20 45 41 3d 45 41 2d 44 |A)......| EA=EA-D|
|00001ea0| 4c 41 3a e5 20 8d 74 66 | 44 0d 04 ce 20 20 54 4e |LA:. .tf|D...  TN|
|00001eb0| 55 32 3d b6 28 28 31 2b | 53 29 2f 28 31 2d 53 29 |U2=.((1+|S)/(1-S)|
|00001ec0| 29 2a b7 28 45 41 2f 32 | 29 0d 04 d8 11 20 4e 55 |)*.(EA/2|).... NU|
|00001ed0| 3d 32 2a 99 28 54 4e 55 | 32 29 0d 04 e2 06 20 e1 |=2*.(TNU|2).... .|
|00001ee0| 0d 04 ec 06 20 3a 0d 04 | f6 0a 20 dd f2 53 75 6e |.... :..|.. ..Sun|
|00001ef0| 0d 05 00 1f 20 f2 4a 75 | 6c 64 61 79 3a 54 3d 44 |.... .Ju|lday:T=D|
|00001f00| 4a 44 2f 33 36 35 32 35 | 3a 54 32 3d 54 2a 54 0d |JD/36525|:T2=T*T.|
|00001f10| 05 0a 25 20 41 3d 31 2e | 30 90 04 32 31 33 35 39 |..% A=1.|0..21359|
|00001f20| 45 32 2a 54 3a 42 3d 33 | 36 30 2a 28 41 2d a8 28 |E2*T:B=3|60*(A-.(|
|00001f30| 41 29 29 0d 05 14 21 20 | 4c 53 3d 32 2e 37 39 36 |A))...! |LS=2.796|
|00001f40| 39 36 36 38 45 32 2b 33 | 2e 30 32 35 45 2d 34 2a |9668E2+3|.025E-4*|
|00001f50| 54 32 2b 42 0d 05 1e 25 | 20 41 3d 39 2e 39 90 03 |T2+B...%| A=9.9..|
|00001f60| 37 33 36 30 34 32 45 31 | 2a 54 3a 42 3d 33 36 30 |736042E1|*T:B=360|
|00001f70| 2a 28 41 2d a8 28 41 29 | 29 0d 05 28 2a 20 4d 53 |*(A-.(A)|)..(* MS|
|00001f80| 3d 33 2e 35 38 34 37 35 | 38 33 45 32 2d 28 31 2e |=3.58475|83E2-(1.|
|00001f90| 35 45 2d 34 2b 33 2e 33 | 45 2d 36 2a 54 29 2a 54 |5E-4+3.3|E-6*T)*T|
|00001fa0| 32 2b 42 0d 05 32 27 20 | 53 3d 31 2e 36 37 35 31 |2+B..2' |S=1.6751|
|00001fb0| 30 34 45 2d 32 2d 34 2e | 31 38 45 2d 35 2a 54 2d |04E-2-4.|18E-5*T-|
|00001fc0| 31 2e 32 36 45 2d 37 2a | 54 32 0d 05 3c 19 20 4d |1.26E-7*|T2..<. M|
|00001fd0| 41 3d a4 52 41 44 28 4d | 53 29 3a f2 41 6e 6f 6d |A=.RAD(M|S):.Anom|
|00001fe0| 61 6c 79 0d 05 46 25 20 | 41 3d 36 2e 32 35 35 32 |aly..F% |A=6.2552|
|00001ff0| 30 39 34 37 32 45 31 2a | 54 3a 42 3d 33 36 30 2a |09472E1*|T:B=360*|
|00002000| 28 41 2d a8 28 41 29 29 | 0d 05 50 16 20 41 31 3d |(A-.(A))|..P. A1=|
|00002010| a4 52 41 44 28 31 35 33 | 2e 32 33 2b 42 29 0d 05 |.RAD(153|.23+B)..|
|00002020| 5a 25 20 41 3d 31 2e 32 | 35 31 30 34 31 38 39 34 |Z% A=1.2|51041894|
|00002030| 45 32 2a 54 3a 42 3d 33 | 36 30 2a 28 41 2d a8 28 |E2*T:B=3|60*(A-.(|
|00002040| 41 29 29 0d 05 64 16 20 | 42 31 3d a4 52 41 44 28 |A))..d. |B1=.RAD(|
|00002050| 32 31 36 2e 35 37 2b 42 | 29 0d 05 6e 25 20 41 3d |216.57+B|)..n% A=|
|00002060| 39 2e 31 35 36 37 36 36 | 30 32 38 45 31 2a 54 3a |9.156766|028E1*T:|
|00002070| 42 3d 33 36 30 2a 28 41 | 2d a8 28 41 29 29 0d 05 |B=360*(A|-.(A))..|
|00002080| 78 16 20 43 31 3d a4 52 | 41 44 28 33 31 32 2e 36 |x. C1=.R|AD(312.6|
|00002090| 39 2b 42 29 0d 05 82 25 | 20 41 3d 31 2e 32 33 36 |9+B)...%| A=1.236|
|000020a0| 38 35 33 30 39 35 45 33 | 2a 54 3a 42 3d 33 36 30 |853095E3|*T:B=360|
|000020b0| 2a 28 41 2d a8 28 41 29 | 29 0d 05 8c 21 20 44 31 |*(A-.(A)|)...! D1|
|000020c0| 3d a4 52 41 44 28 33 35 | 30 2e 37 34 2d 31 2e 34 |=.RAD(35|0.74-1.4|
|000020d0| 34 45 2d 33 2a 54 32 2b | 42 29 0d 05 96 1b 20 45 |4E-3*T2+|B).... E|
|000020e0| 31 3d a4 52 41 44 28 32 | 33 31 2e 31 39 2b 32 30 |1=.RAD(2|31.19+20|
|000020f0| 2e 32 2a 54 29 0d 05 a0 | 25 20 41 3d 31 2e 38 33 |.2*T)...|% A=1.83|
|00002100| 31 33 35 33 32 30 38 45 | 32 2a 54 3a 42 3d 33 36 |1353208E|2*T:B=36|
|00002110| 30 2a 28 41 2d a8 28 41 | 29 29 0d 05 aa 15 20 48 |0*(A-.(A|)).... H|
|00002120| 31 3d a4 52 41 44 28 33 | 35 33 2e 34 2b 42 29 0d |1=.RAD(3|53.4+B).|
|00002130| 05 b4 4a 20 44 4c 3d 31 | 2e 33 34 45 2d 33 2a 9b |..J DL=1|.34E-3*.|
|00002140| 28 41 31 29 2b 31 2e 35 | 34 45 2d 33 2a 9b 28 42 |(A1)+1.5|4E-3*.(B|
|00002150| 31 29 2b 32 45 2d 33 2a | 9b 28 43 31 29 2b 31 2e |1)+2E-3*|.(C1)+1.|
|00002160| 37 39 45 2d 33 2a b5 28 | 44 31 29 2b 31 2e 37 38 |79E-3*.(|D1)+1.78|
|00002170| 45 2d 33 2a b5 28 45 31 | 29 0d 05 be 50 20 44 52 |E-3*.(E1|)...P DR|
|00002180| 3d 35 2e 34 33 45 2d 36 | 2a b5 28 41 31 29 2b 31 |=5.43E-6|*.(A1)+1|
|00002190| 2e 35 37 35 45 2d 35 2a | b5 28 42 31 29 2b 31 2e |.575E-5*|.(B1)+1.|
|000021a0| 36 32 37 45 2d 35 2a b5 | 28 43 31 29 2b 33 2e 30 |627E-5*.|(C1)+3.0|
|000021b0| 37 36 45 2d 35 2a 9b 28 | 44 31 29 2b 39 2e 32 37 |76E-5*.(|D1)+9.27|
|000021c0| 45 2d 36 2a b5 28 48 31 | 29 0d 05 c8 1a 20 4c 53 |E-6*.(H1|).... LS|
|000021d0| 4e 3d 4e 55 2b a4 52 41 | 44 28 4c 53 2d 4d 53 2b |N=NU+.RA|D(LS-MS+|
|000021e0| 44 4c 29 0d 05 d2 21 20 | 52 53 4e 3d 31 2e 30 90 |DL)...! |RSN=1.0.|
|000021f0| 06 32 2a 28 31 2d 53 2a | 9b 28 45 41 29 29 2b 44 |.2*(1-S*|.(EA))+D|
|00002200| 52 0d 05 dc 20 20 e7 20 | 4c 53 4e 3c 30 20 8c 20 |R...  . |LSN<0 . |
|00002210| 4c 53 4e 3d 4c 53 4e 2b | 54 50 49 3a e5 8d 64 5c |LSN=LSN+|TPI:..d\|
|00002220| 45 0d 05 e6 23 20 e7 20 | 4c 53 4e 3e 54 50 49 20 |E...# . |LSN>TPI |
|00002230| 8c 20 4c 53 4e 3d 4c 53 | 4e 2d 54 50 49 3a e5 20 |. LSN=LS|N-TPI:. |
|00002240| 8d 64 66 45 0d 05 f0 06 | 20 e1 0d 05 fa 06 20 3a |.dfE....| ..... :|
|00002250| 0d 06 04 0c 20 dd f2 43 | 6f 6d 65 74 0d 06 0e 0c |.... ..C|omet....|
|00002260| 20 f2 4a 75 6c 64 61 79 | 0d 06 18 2a 20 57 3d 28 | .Julday|...* W=(|
|00002270| 28 44 4a 44 2d 44 4a 44 | 30 29 2a 33 2e 36 34 39 |(DJD-DJD|0)*3.649|
|00002280| 31 31 36 45 2d 32 29 2f | 28 51 50 2a b6 28 51 50 |116E-2)/|(QP*.(QP|
|00002290| 29 29 0d 06 22 0a 20 53 | 3d 57 2f 33 0d 06 2c 18 |))..". S|=W/3..,.|
|000022a0| 20 53 32 3d 53 2a 53 3a | 44 3d 28 53 32 2b 33 29 | S2=S*S:|D=(S2+3)|
|000022b0| 2a 53 2d 57 0d 06 36 33 | 20 e7 20 94 28 44 29 3e |*S-W..63| . .(D)>|
|000022c0| 31 45 2d 34 20 8c 20 53 | 3d 28 28 32 2a 53 2a 53 |1E-4 . S|=((2*S*S|
|000022d0| 32 29 2b 57 29 2f 28 33 | 2a 28 53 32 2b 31 29 29 |2)+W)/(3|*(S2+1))|
|000022e0| 3a e5 20 8d 54 6c 46 0d | 06 40 22 20 4e 55 3d 32 |:. .TlF.|.@" NU=2|
|000022f0| 2a 99 28 53 29 3a 52 3d | 51 50 2a 28 31 2b 53 32 |*.(S):R=|QP*(1+S2|
|00002300| 29 3a 4c 3d 4e 55 2b 41 | 50 0d 06 4a 23 20 53 4c |):L=NU+A|P..J# SL|
|00002310| 3d b5 28 4c 29 3a 43 4c | 3d 9b 28 4c 29 3a 53 50 |=.(L):CL|=.(L):SP|
|00002320| 53 49 3d 53 4c 2a b5 28 | 49 4e 43 29 0d 06 54 1f |SI=SL*.(|INC)..T.|
|00002330| 20 50 53 49 3d a4 41 53 | 4e 28 53 50 53 49 29 3a | PSI=.AS|N(SPSI):|
|00002340| 59 3d 53 4c 2a 9b 28 49 | 4e 43 29 0d 06 5e 1e 20 |Y=SL*.(I|NC)..^. |
|00002350| 4c 44 3d 99 28 59 2f 43 | 4c 29 2b 4f 4d 3a 43 50 |LD=.(Y/C|L)+OM:CP|
|00002360| 53 49 3d 9b 28 50 53 49 | 29 0d 06 68 15 20 e7 20 |SI=.(PSI|)..h. . |
|00002370| 43 4c 3c 30 20 8c 20 4c | 44 3d 4c 44 2b af 0d 06 |CL<0 . L|D=LD+...|
|00002380| 72 20 20 e7 20 4c 44 3e | 54 50 49 20 8c 20 4c 44 |r  . LD>|TPI . LD|
|00002390| 3d 4c 44 2d 54 50 49 3a | e5 20 8d 44 72 46 0d 06 |=LD-TPI:|. .DrF..|
|000023a0| 7c 1c 20 52 44 3d 52 2a | 43 50 53 49 3a f2 53 75 ||. RD=R*|CPSI:.Su|
|000023b0| 6e 3a 4c 47 3d 4c 53 4e | 2b af 0d 06 86 14 20 52 |n:LG=LSN|+..... R|
|000023c0| 45 3d 52 53 4e 3a 4c 4c | 3d 4c 44 2d 4c 47 0d 06 |E=RSN:LL|=LD-LG..|
|000023d0| 90 00 18 20 43 4c 4c 3d | 9b 28 4c 4c 29 3a 53 4c |... CLL=|.(LL):SL|
|000023e0| 4c 3d b5 28 4c 4c 29 0d | 06 9a 27 20 52 48 4f 3d |L=.(LL).|..' RHO=|
|000023f0| b6 28 28 52 45 2a 52 45 | 29 2b 28 52 2a 52 29 2d |.((RE*RE|)+(R*R)-|
|00002400| 28 32 2a 52 45 2a 52 44 | 2a 43 4c 4c 29 29 0d 06 |(2*RE*RD|*CLL))..|
|00002410| a4 12 20 e7 20 52 44 3c | 52 45 20 8c 8d 64 42 46 |.. . RD<|RE ..dBF|
|00002420| 0d 06 ae 25 20 4c 41 4d | 3d 99 28 28 52 45 2a 53 |...% LAM|=.((RE*S|
|00002430| 4c 4c 29 2f 28 52 44 2d | 28 52 45 2a 43 4c 4c 29 |LL)/(RD-|(RE*CLL)|
|00002440| 90 03 2b 4c 44 0d 06 b8 | 0b 20 e5 20 8d 64 4c 46 |..+LD...|. . .dLF|
|00002450| 0d 06 c2 2a 20 4c 41 4d | 3d 99 28 28 2d 31 2a 52 |...* LAM|=.((-1*R|
|00002460| 44 2a 53 4c 4c 29 2f 28 | 52 45 2d 28 52 44 2a 43 |D*SLL)/(|RE-(RD*C|
|00002470| 4c 4c 29 90 03 2b 4c 47 | 2b af 0d 06 cc 21 20 e7 |LL)..+LG|+....! .|
|00002480| 20 4c 41 4d 3c 30 20 8c | 20 4c 41 4d 3d 4c 41 4d | LAM<0 .| LAM=LAM|
|00002490| 2b 54 50 49 3a e5 20 8d | 64 4c 46 0d 06 d6 22 20 |+TPI:. .|dLF..." |
|000024a0| e7 4c 41 4d 3e 54 50 49 | 20 8c 20 4c 41 4d 3d 4c |.LAM>TPI| . LAM=L|
|000024b0| 41 4d 2d 54 50 49 3a e5 | 20 8d 64 56 46 0d 06 e0 |AM-TPI:.| .dVF...|
|000024c0| 29 20 54 42 3d 28 52 44 | 2a 53 50 53 49 2a b5 28 |) TB=(RD|*SPSI*.(|
|000024d0| 4c 41 4d 2d 4c 44 29 29 | 2f 28 43 50 53 49 2a 52 |LAM-LD))|/(CPSI*R|
|000024e0| 45 2a 53 4c 4c 29 0d 06 | ea 0e 20 42 45 54 3d 99 |E*SLL)..|.. BET=.|
|000024f0| 28 54 42 29 0d 06 f4 06 | 20 e1 0d 06 fe 06 20 3a |(TB)....| ..... :|
|00002500| 0d 07 08 0e 20 dd f2 52 | 65 64 65 6c 6d 74 0d 07 |.... ..R|edelmt..|
|00002510| 12 23 20 44 59 3d 44 59 | 41 3a 4d 4e 3d 4d 4e 41 |.# DY=DY|A:MN=MNA|
|00002520| 3a 59 52 3d 59 52 41 3a | 46 4c 41 47 28 31 29 3d |:YR=YRA:|FLAG(1)=|
|00002530| 30 0d 07 1c 1a 20 f2 4a | 75 6c 64 61 79 3a 54 30 |0.... .J|ulday:T0|
|00002540| 3d 44 4a 44 2f 33 36 35 | 32 35 30 0d 07 26 23 20 |=DJD/365|250..&# |
|00002550| 44 59 3d 44 59 42 3a 4d | 4e 3d 4d 4e 42 3a 59 52 |DY=DYB:M|N=MNB:YR|
|00002560| 3d 59 52 42 3a 46 4c 41 | 47 28 31 29 3d 30 0d 07 |=YRB:FLA|G(1)=0..|
|00002570| 30 1a 20 f2 4a 75 6c 64 | 61 79 3a 54 31 3d 44 4a |0. .Juld|ay:T1=DJ|
|00002580| 44 2f 33 36 35 32 35 30 | 0d 07 3a 17 20 54 54 3d |D/365250|..:. TT=|
|00002590| 54 31 2d 54 30 3a 54 54 | 32 3d 54 54 2a 54 54 0d |T1-T0:TT|2=TT*TT.|
|000025a0| 07 44 19 20 54 30 32 3d | 54 30 2a 54 30 3a 54 54 |.D. T02=|T0*T0:TT|
|000025b0| 33 3d 54 54 2a 54 54 32 | 0d 07 4e 41 20 45 54 41 |3=TT*TT2|..NA ETA|
|000025c0| 3d 28 34 37 31 2e 30 37 | 2d 36 2e 37 35 2a 54 30 |=(471.07|-6.75*T0|
|000025d0| 2b 30 2e 35 37 2a 54 30 | 32 29 2a 54 54 2b 28 30 |+0.57*T0|2)*TT+(0|
|000025e0| 2e 35 37 2a 54 30 2d 33 | 2e 33 37 29 2a 54 54 32 |.57*T0-3|.37)*TT2|
|000025f0| 2b 30 2e 30 35 2a 54 54 | 33 0d 07 58 2e 20 54 48 |+0.05*TT|3..X. TH|
|00002600| 30 3d 33 32 38 36 39 2a | 54 30 2b 35 36 2a 54 30 |0=32869*|T0+56*T0|
|00002610| 32 2d 28 38 36 39 34 2b | 35 35 2a 54 30 29 2a 54 |2-(8694+|55*T0)*T|
|00002620| 54 2b 33 2a 54 54 32 0d | 07 62 17 20 45 54 41 3d |T+3*TT2.|.b. ETA=|
|00002630| a4 52 41 44 28 45 54 41 | 2f 33 36 30 30 29 0d 07 |.RAD(ETA|/3600)..|
|00002640| 6c 24 20 54 48 30 3d a4 | 52 41 44 28 28 54 48 30 |l$ TH0=.|RAD((TH0|
|00002650| 2f 33 36 30 30 29 2b 31 | 37 33 2e 39 35 30 38 33 |/3600)+1|73.95083|
|00002660| 33 29 0d 07 76 45 20 54 | 48 3d 28 35 30 32 35 36 |3)..vE T|H=(50256|
|00002670| 2e 34 31 2b 32 90 03 2e | 32 39 2a 54 30 2b 30 2e |.41+2...|29*T0+0.|
|00002680| 32 36 2a 54 30 32 29 2a | 54 54 2b 28 31 90 03 2e |26*T02)*|TT+(1...|
|00002690| 31 35 2b 30 2e 32 36 2a | 54 30 29 2a 54 54 32 2b |15+0.26*|T0)*TT2+|
|000026a0| 30 2e 31 2a 54 54 33 0d | 07 80 26 20 54 48 3d 54 |0.1*TT3.|..& TH=T|
|000026b0| 48 30 2b a4 52 41 44 28 | 54 48 2f 33 36 30 30 29 |H0+.RAD(|TH/3600)|
|000026c0| 3a 43 49 4e 43 3d 9b 28 | 49 4e 43 30 29 0d 07 8a |:CINC=.(|INC0)...|
|000026d0| 26 20 53 54 4e 43 3d b5 | 28 49 4e 43 30 29 3a 4f |& STNC=.|(INC0):O|
|000026e0| 54 3d 4f 4d 30 2d 54 48 | 30 3a 53 4f 54 3d b5 28 |T=OM0-TH|0:SOT=.(|
|000026f0| 4f 54 29 0d 07 94 1a 20 | 43 4f 54 3d 9b 28 4f 54 |OT).... |COT=.(OT|
|00002700| 29 3a 53 45 54 41 3d b5 | 28 45 54 41 29 0d 07 9e |):SETA=.|(ETA)...|
|00002710| 1b 20 43 45 54 41 3d 9b | 28 45 54 41 29 3a 41 3d |. CETA=.|(ETA):A=|
|00002720| 53 54 4e 43 2a 53 4f 54 | 0d 07 a8 29 20 42 3d 43 |STNC*SOT|...) B=C|
|00002730| 45 54 41 2a 53 54 4e 43 | 2a 43 4f 54 2d 53 45 54 |ETA*STNC|*COT-SET|
|00002740| 41 2a 43 49 4e 43 3a 4f | 54 31 3d 99 28 41 2f 42 |A*CINC:O|T1=.(A/B|
|00002750| 29 0d 07 b2 16 20 e7 20 | 42 3c 30 20 8c 20 4f 54 |).... . |B<0 . OT|
|00002760| 31 3d 4f 54 31 2b af 0d | 07 bc 1e 20 42 3d 53 54 |1=OT1+..|... B=ST|
|00002770| 4e 43 2a 43 45 54 41 2d | 43 49 4e 43 2a 53 45 54 |NC*CETA-|CINC*SET|
|00002780| 41 2a 43 4f 54 0d 07 c6 | 1d 20 41 3d 2d 31 2a 53 |A*COT...|. A=-1*S|
|00002790| 45 54 41 2a 53 4f 54 3a | 44 41 50 3d 99 28 41 2f |ETA*SOT:|DAP=.(A/|
|000027a0| 42 29 0d 07 d0 16 20 e7 | 20 42 3c 30 20 8c 20 44 |B).... .| B<0 . D|
|000027b0| 41 50 3d 44 41 50 2b af | 0d 07 da 1b 20 58 3d 41 |AP=DAP+.|.... X=A|
|000027c0| 50 30 2b 44 41 50 3a f2 | 41 64 6a 75 73 74 3a 41 |P0+DAP:.|Adjust:A|
|000027d0| 50 3d 58 0d 07 e4 1a 20 | 58 3d 4f 54 31 2b 54 48 |P=X.... |X=OT1+TH|
|000027e0| 3a f2 41 64 6a 75 73 74 | 3a 4f 4d 3d 58 0d 07 ee |:.Adjust|:OM=X...|
|000027f0| 28 20 e7 20 49 4e 43 30 | 3c 30 2e 31 37 35 20 8c |( . INC0|<0.175 .|
|00002800| 20 49 4e 43 3d a4 41 53 | 4e 28 41 2f b5 28 44 41 | INC=.AS|N(A/.(DA|
|00002810| 50 29 29 3a e1 0d 07 f8 | 25 20 43 49 4e 43 3d 28 |P)):....|% CINC=(|
|00002820| 43 49 4e 43 2a 43 45 54 | 41 29 2b 28 53 54 4e 43 |CINC*CET|A)+(STNC|
|00002830| 2a 53 45 54 41 2a 43 4f | 54 29 0d 08 02 1f 20 49 |*SETA*CO|T).... I|
|00002840| 4e 43 3d 31 2e 35 37 30 | 37 39 36 33 32 37 2d a4 |NC=1.570|796327-.|
|00002850| 41 53 4e 28 43 49 4e 43 | 29 0d 08 0c 06 20 e1 0d |ASN(CINC|).... ..|
|00002860| 08 16 06 20 3a 0d 08 20 | 0d 20 dd f2 41 64 6a 75 |... :.. |. ..Adju|
|00002870| 73 74 0d 08 2a 18 20 e7 | 20 58 3c 30 20 8c 20 58 |st..*. .| X<0 . X|
|00002880| 3d 58 2b af 3a e5 8d 54 | 6a 48 0d 08 34 1c 20 e7 |=X+.:..T|jH..4. .|
|00002890| 20 58 3e 54 50 49 20 8c | 20 58 3d 58 2d 54 50 49 | X>TPI .| X=X-TPI|
|000028a0| 3a e5 8d 54 74 48 0d 08 | 3e 06 20 e1 0d 08 48 06 |:..TtH..|>. ...H.|
|000028b0| 20 3a 0d 08 52 3d 20 f4 | 20 41 63 6b 6e 6f 77 6c | :..R= .| Acknowl|
|000028c0| 65 64 67 65 6d 65 6e 74 | 3a 20 41 53 54 52 4f 4e |edgement|: ASTRON|
|000028d0| 4f 4d 59 20 57 49 54 48 | 20 59 4f 55 52 20 50 45 |OMY WITH| YOUR PE|
|000028e0| 52 53 4f 4e 41 4c 20 43 | 4f 4d 50 55 54 45 52 0d |RSONAL C|OMPUTER.|
|000028f0| 08 5c 2b 20 f4 20 90 12 | 50 65 74 65 72 20 44 75 |.\+ . ..|Peter Du|
|00002900| 66 66 65 74 74 2d 53 6d | 69 74 68 0d 08 66 38 20 |ffett-Sm|ith..f8 |
|00002910| f4 20 90 12 43 61 6d 62 | 72 69 64 67 65 20 55 6e |. ..Camb|ridge Un|
|00002920| 69 76 65 72 73 69 74 79 | 20 50 72 65 73 73 20 20 |iversity| Press  |
|00002930| 31 39 38 35 0d 08 70 2d | 20 f4 20 41 64 61 70 74 |1985..p-| . Adapt|
|00002940| 65 64 20 62 79 3a 20 90 | 06 44 41 41 46 20 44 75 |ed by: .|.DAAF Du|
|00002950| 6c 77 69 63 68 20 44 65 | 63 20 31 39 38 38 0d ff |lwich De|c 1988..|
|00002960| 46 69 6c 65 44 61 74 61 | 83 45 43 4c 49 50 53 45 |FileData|.ECLIPSE|
|00002970| 00 0d 39 39 a6 40 00 00 | 45 fd ff ff 8c 02 b8 c7 |..99.@..|E.......|
|00002980| 03 00 00 00 0d 00 0a 18 | 20 f4 20 20 2a 2a 20 20 |........| .  **  |
|00002990| 3e 45 43 4c 49 50 53 45 | 20 20 2a 2a 0d 00 14 08 |>ECLIPSE|  **....|
|000029a0| 20 eb 20 30 0d 00 1e 53 | 20 f1 27 8a 35 29 3b 22 | . 0...S| .'.5);"|
|000029b0| 54 68 69 73 20 72 6f 75 | 74 69 6e 65 20 63 61 6c |This rou|tine cal|
|000029c0| 63 75 6c 61 74 65 73 20 | 74 68 65 20 63 69 72 63 |culates |the circ|
|000029d0| 75 6d 73 74 61 6e 63 65 | 73 20 6f 66 20 6c 75 6e |umstance|s of lun|
|000029e0| 61 72 20 61 6e 64 20 73 | 6f 6c 61 72 20 65 63 6c |ar and s|olar ecl|
|000029f0| 69 70 73 65 73 2e 22 0d | 00 28 06 20 3a 0d 00 32 |ipses.".|.(. :..2|
|00002a00| 0f 20 de 20 46 4c 41 47 | 28 31 31 29 0d 00 3c 1e |. . FLAG|(11)..<.|
|00002a10| 20 dd a4 52 41 44 28 57 | 29 3d 31 2e 37 34 35 33 | ..RAD(W|)=1.7453|
|00002a20| 32 39 32 35 32 45 2d 32 | 2a 57 0d 00 46 1d 20 dd |29252E-2|*W..F. .|
|00002a30| a4 44 45 47 28 57 29 3d | 35 2e 37 32 39 35 37 37 |.DEG(W)=|5.729577|
|00002a40| 39 35 31 45 31 2a 57 0d | 00 50 2c 20 dd a4 4c 49 |951E1*W.|.P, ..LI|
|00002a50| 46 28 57 29 3d a8 28 57 | 29 2d 28 46 4c 41 47 28 |F(W)=.(W|)-(FLAG(|
|00002a60| 30 29 2d 31 29 2a a8 28 | 28 b4 28 57 29 2d 31 29 |0)-1)*.(|(.(W)-1)|
|00002a70| 2f 32 29 0d 00 5a 23 20 | dd a4 41 53 4e 28 57 29 |/2)..Z# |..ASN(W)|
|00002a80| 3d 99 28 57 2f 28 b6 28 | 31 2d 57 2a 57 29 2b 31 |=.(W/(.(|1-W*W)+1|
|00002a90| 45 2d 32 30 29 29 0d 00 | 64 1a 20 dd a4 49 54 47 |E-20))..|d. ..ITG|
|00002aa0| 28 57 29 3d b4 28 57 29 | 2a a8 28 94 28 57 29 29 |(W)=.(W)|*.(.(W))|
|00002ab0| 0d 00 6e 1d 20 dd a4 55 | 4e 57 28 57 2c 5a 29 3d |..n. ..U|NW(W,Z)=|
|00002ac0| 57 2d a4 4c 49 46 28 57 | 2f 5a 29 2a 5a 0d 00 78 |W-.LIF(W|/Z)*Z..x|
|00002ad0| 1c 20 dd a4 52 4f 55 28 | 58 2c 59 29 3d a8 28 58 |. ..ROU(|X,Y)=.(X|
|00002ae0| 2a 59 2b 30 2e 35 29 2f | 59 0d 00 82 27 20 dd a4 |*Y+0.5)/|Y...' ..|
|00002af0| 5a 28 41 2c 42 2c 43 2c | 44 29 3d 28 41 2a 41 29 |Z(A,B,C,|D)=(A*A)|
|00002b00| 2d 28 28 42 2d 28 43 2a | 43 29 29 2a 41 2f 44 29 |-((B-(C*|C))*A/D)|
|00002b10| 0d 00 8c 18 20 f1 3a 46 | 4c 41 47 28 30 29 3d 31 |.... .:F|LAG(0)=1|
|00002b20| 3a 54 50 49 3d 32 2a af | 0d 00 96 27 20 f1 27 27 |:TPI=2*.|...' .''|
|00002b30| 8a 32 35 29 3b 22 4c 75 | 6e 61 72 20 61 6e 64 20 |.25);"Lu|nar and |
|00002b40| 73 6f 6c 61 72 20 65 63 | 6c 69 70 73 65 73 22 0d |solar ec|lipses".|
|00002b50| 00 a0 15 20 f1 3a 43 4f | 55 4e 54 45 52 3d 30 3a |... .:CO|UNTER=0:|
|00002b60| 53 57 3d 30 0d 00 aa 17 | 20 e7 20 46 4c 41 47 28 |SW=0....| . FLAG(|
|00002b70| 31 31 29 3d 31 20 8c 8d | 64 70 40 0d 00 b4 2f 20 |11)=1 ..|dp@.../ |
|00002b80| e8 22 47 65 6f 67 2e 20 | 6c 6f 6e 67 69 74 75 64 |."Geog. |longitud|
|00002b90| 65 20 28 57 20 6e 65 67 | 2e 20 44 2c 4d 2c 53 29 |e (W neg|. D,M,S)|
|00002ba0| 22 3b 58 44 2c 58 4d 2c | 58 53 0d 00 be 1a 20 53 |";XD,XM,|XS.... S|
|00002bb0| 57 31 3d 2d 31 3a f2 4d | 69 6e 73 65 63 3a 4c 4f |W1=-1:.M|insec:LO|
|00002bc0| 4e 47 3d 58 0d 00 c8 2f | 20 e8 22 47 65 6f 67 72 |NG=X.../| ."Geogr|
|00002bd0| 61 70 68 69 63 61 6c 20 | 6c 61 74 69 74 75 64 65 |aphical |latitude|
|00002be0| 20 20 28 44 2c 4d 2c 53 | 29 22 3b 58 44 2c 58 4d |  (D,M,S|)";XD,XM|
|00002bf0| 2c 58 53 0d 00 d2 18 20 | f2 4d 69 6e 73 65 63 3a |,XS.... |.Minsec:|
|00002c00| 50 48 49 3d a4 52 41 44 | 28 58 29 0d 00 dc 26 20 |PHI=.RAD|(X)...& |
|00002c10| e8 22 48 65 69 67 68 74 | 20 61 62 6f 76 65 20 73 |."Height| above s|
|00002c20| 65 61 2d 6c 65 76 65 6c | 20 28 6d 29 22 3b 48 54 |ea-level| (m)";HT|
|00002c30| 31 0d 00 e6 11 20 e7 20 | 53 57 3d 31 20 8c 8d 54 |1.... . |SW=1 ..T|
|00002c40| 44 41 0d 00 f0 26 20 e8 | 22 53 74 61 72 74 69 6e |DA...& .|"Startin|
|00002c50| 67 20 64 61 74 65 20 28 | 44 2c 4d 2c 59 29 22 3b |g date (|D,M,Y)";|
|00002c60| 44 59 2c 4d 4e 2c 59 52 | 0d 00 fa 1b 20 e8 22 48 |DY,MN,YR|.... ."H|
|00002c70| 6f 77 20 6d 61 6e 79 20 | 6d 6f 6e 74 68 73 22 3b |ow many |months";|
|00002c80| 4e 4d 4f 0d 01 04 15 20 | f1 3a 48 54 3d 48 54 31 |NMO.... |.:HT=HT1|
|00002c90| 2f 36 33 37 38 31 34 30 | 0d 01 0e 27 20 e7 20 53 |/6378140|...' . S|
|00002ca0| 57 3d 30 20 8c 20 54 50 | 24 3d 22 53 22 3a 43 4f |W=0 . TP|$="S":CO|
|00002cb0| 55 4e 54 45 52 3d 43 4f | 55 4e 54 45 52 2b 31 0d |UNTER=CO|UNTER+1.|
|00002cc0| 01 18 18 20 46 4c 41 47 | 28 33 29 3d 30 3a 46 4c |... FLAG|(3)=0:FL|
|00002cd0| 41 47 28 35 29 3d 30 0d | 01 22 12 20 f2 45 63 6c |AG(5)=0.|.". .Ecl|
|00002ce0| 69 70 73 65 3a 53 57 3d | 30 0d 01 2c 20 20 f1 22 |ipse:SW=|0..,  ."|
|00002cf0| 2e 90 03 6f 6e 20 22 3b | 44 59 30 3b 22 2f 22 3b |...on ";|DY0;"/";|
|00002d00| 4d 4e 3b 22 2f 22 3b 59 | 52 0d 01 36 13 20 e7 20 |MN;"/";Y|R..6. . |
|00002d10| 45 52 52 36 3d 32 20 8c | 8d 44 4e 42 0d 01 40 15 |ERR6=2 .|.DNB..@.|
|00002d20| 20 e7 20 45 52 52 36 20 | 3c 3e 30 20 8c 8d 44 6c | . ERR6 |<>0 ..Dl|
|00002d30| 42 0d 01 4a 26 20 e7 20 | 54 50 24 3d 22 4c 22 20 |B..J& . |TP$="L" |
|00002d40| f1 3a f1 8a 32 30 29 3b | 22 4c 75 6e 61 72 20 65 |.:..20);|"Lunar e|
|00002d50| 63 6c 69 70 73 65 22 0d | 01 54 26 20 e7 20 54 50 |clipse".|.T& . TP|
|00002d60| 24 3d 22 53 22 20 f1 3a | f1 8a 32 30 29 3b 22 53 |$="S" .:|..20);"S|
|00002d70| 6f 6c 61 72 20 65 63 6c | 69 70 73 65 22 0d 01 5e |olar ecl|ipse"..^|
|00002d80| 1a 20 f1 8a 32 30 29 3b | 22 2d 90 05 20 2d 90 07 |. ..20);|"-.. -..|
|00002d90| 22 0d 01 68 1f 20 58 3d | a4 55 4e 57 28 5a 31 48 |"..h. X=|.UNW(Z1H|
|00002da0| 2b 38 2e 33 90 06 45 2d | 33 2c 32 34 29 0d 01 72 |+8.3..E-|3,24)..r|
|00002db0| 14 20 53 57 31 3d 31 3a | f2 4d 69 6e 73 65 63 3a |. SW1=1:|.Minsec:|
|00002dc0| f1 0d 01 7c 40 20 f1 8a | 31 30 29 3b 22 55 54 20 |...|@ ..|10);"UT |
|00002dd0| 6f 66 20 6d 61 78 69 6d | 75 6d 20 65 63 6c 69 70 |of maxim|um eclip|
|00002de0| 73 65 3b 22 3b 8a 33 35 | 29 3b 58 44 3b 22 3a 22 |se;";.35|);XD;":"|
|00002df0| 3b 58 4d 3a 58 44 41 3d | 58 44 3a 58 4d 41 3d 58 |;XM:XDA=|XD:XMA=X|
|00002e00| 4d 0d 01 86 28 20 58 3d | a4 55 4e 57 28 5a 32 48 |M...( X=|.UNW(Z2H|
|00002e10| 31 2b 38 2e 33 90 06 45 | 2d 33 2c 32 34 29 3a f2 |1+8.3..E|-3,24):.|
|00002e20| 4d 69 6e 73 65 63 0d 01 | 90 00 2d 20 f1 8a 31 30 |Minsec..|..- ..10|
|00002e30| 29 3b 22 65 63 6c 69 70 | 73 65 20 62 65 67 69 6e |);"eclip|se begin|
|00002e40| 73 20 61 74 22 3b 8a 33 | 35 29 3b 58 44 3b 22 3a |s at";.3|5);XD;":|
|00002e50| 22 3b 58 4d 0d 01 9a 28 | 20 58 3d a4 55 4e 57 28 |";XM...(| X=.UNW(|
|00002e60| 5a 32 48 32 2b 38 2e 33 | 90 06 45 2d 33 2c 32 34 |Z2H2+8.3|..E-3,24|
|00002e70| 29 3a f2 4d 69 6e 73 65 | 63 0d 01 a4 2b 20 f1 8a |):.Minse|c...+ ..|
|00002e80| 31 30 29 3b 22 65 63 6c | 69 70 73 65 20 65 6e 64 |10);"ecl|ipse end|
|00002e90| 73 20 61 74 22 3b 8a 33 | 35 29 3b 58 44 3b 22 3a |s at";.3|5);XD;":|
|00002ea0| 22 3b 58 4d 0d 01 ae 14 | 20 e7 20 54 50 24 3d 22 |";XM....| . TP$="|
|00002eb0| 53 22 20 8c 8d 54 66 42 | 0d 01 b8 16 20 e7 20 45 |S" ..TfB|.... . E|
|00002ec0| 52 52 37 20 3c 3e 20 31 | 20 8c 8d 64 4c 41 0d 01 |RR7 <> 1| ..dLA..|
|00002ed0| c2 29 20 f1 8a 31 30 29 | 3b 22 2a 2a 20 6e 6f 20 |.) ..10)|;"** no |
|00002ee0| 75 6d 62 72 61 6c 20 70 | 68 61 73 65 20 2a 2a 22 |umbral p|hase **"|
|00002ef0| 3a e5 20 8d 54 66 42 0d | 01 cc 28 20 58 3d a4 55 |:. .TfB.|..( X=.U|
|00002f00| 4e 57 28 5a 32 48 33 2b | 38 2e 33 90 06 45 2d 33 |NW(Z2H3+|8.3..E-3|
|00002f10| 2c 32 34 29 3a f2 4d 69 | 6e 73 65 63 0d 01 d6 32 |,24):.Mi|nsec...2|
|00002f20| 20 f1 8a 31 30 29 3b 22 | 75 6d 62 72 61 6c 20 70 | ..10);"|umbral p|
|00002f30| 68 61 73 65 20 62 65 67 | 69 6e 73 20 61 74 22 3b |hase beg|ins at";|
|00002f40| 8a 33 35 29 3b 58 44 3b | 22 3a 22 3b 58 4d 0d 01 |.35);XD;|":";XM..|
|00002f50| e0 28 20 58 3d a4 55 4e | 57 28 5a 32 48 34 2b 38 |.( X=.UN|W(Z2H4+8|
|00002f60| 2e 33 90 06 45 2d 33 2c | 32 34 29 3a f2 4d 69 6e |.3..E-3,|24):.Min|
|00002f70| 73 65 63 0d 01 ea 30 20 | f1 8a 31 30 29 3b 22 75 |sec...0 |..10);"u|
|00002f80| 6d 62 72 61 6c 20 70 68 | 61 73 65 20 65 6e 64 73 |mbral ph|ase ends|
|00002f90| 20 61 74 22 3b 8a 33 35 | 29 3b 58 44 3b 22 3a 22 | at";.35|);XD;":"|
|00002fa0| 3b 58 4d 0d 01 f4 31 20 | e7 20 45 52 52 37 3d 32 |;XM...1 |. ERR7=2|
|00002fb0| 20 f1 8a 31 30 29 3b 22 | 2a 2a 20 6e 6f 20 74 6f | ..10);"|** no to|
|00002fc0| 74 61 6c 20 70 68 61 73 | 65 20 2a 2a 22 3a e5 20 |tal phas|e **":. |
|00002fd0| 8d 54 66 42 0d 01 fe 28 | 20 58 3d a4 55 4e 57 28 |.TfB...(| X=.UNW(|
|00002fe0| 5a 32 48 35 2b 38 2e 33 | 90 06 45 2d 33 2c 32 34 |Z2H5+8.3|..E-3,24|
|00002ff0| 29 3a f2 4d 69 6e 73 65 | 63 0d 02 08 2e 20 f1 8a |):.Minse|c.... ..|
|00003000| 31 30 29 3b 22 74 6f 74 | 61 6c 20 70 68 61 73 65 |10);"tot|al phase|
|00003010| 20 62 65 67 69 6e 73 22 | 3b 8a 33 35 29 3b 58 44 | begins"|;.35);XD|
|00003020| 3b 22 3a 22 3b 58 4d 0d | 02 12 28 20 58 3d a4 55 |;":";XM.|..( X=.U|
|00003030| 4e 57 28 5a 32 48 36 2b | 38 2e 33 90 06 45 2d 33 |NW(Z2H6+|8.3..E-3|
|00003040| 2c 32 34 29 3a f2 4d 69 | 6e 73 65 63 0d 02 1c 2c |,24):.Mi|nsec...,|
|00003050| 20 f1 8a 31 30 29 3b 22 | 74 6f 74 61 6c 20 70 68 | ..10);"|total ph|
|00003060| 61 73 65 20 65 6e 64 73 | 22 3b 8a 33 35 29 3b 58 |ase ends|";.35);X|
|00003070| 44 3b 22 3a 22 3b 58 4d | 0d 02 26 2e 20 f1 8a 31 |D;":";XM|..&. ..1|
|00003080| 30 29 3b 22 65 63 6c 69 | 70 73 65 20 6d 61 67 6e |0);"ecli|pse magn|
|00003090| 69 74 75 64 65 20 22 3b | a4 52 4f 55 28 4d 47 2c |itude ";|.ROU(MG,|
|000030a0| 31 30 30 29 3a f1 0d 02 | 30 25 20 e8 22 44 69 73 |100):...|0% ."Dis|
|000030b0| 70 6c 61 79 20 74 68 65 | 20 65 63 6c 69 70 73 65 |play the| eclipse|
|000030c0| 20 28 59 2f 4e 29 22 3b | 41 4e 24 0d 02 3a 17 20 | (Y/N)";|AN$..:. |
|000030d0| e7 20 41 4e 24 3d 22 59 | 22 20 f2 44 69 73 70 6c |. AN$="Y|" .Displ|
|000030e0| 61 79 0d 02 44 14 20 e7 | 20 54 50 24 3d 22 4c 22 |ay..D. .| TP$="L"|
|000030f0| 20 8c 8d 44 6c 42 0d 02 | 4e 22 20 e8 22 41 6e 6f | ..DlB..|N" ."Ano|
|00003100| 74 68 65 72 20 6c 6f 63 | 61 74 69 6f 6e 20 28 59 |ther loc|ation (Y|
|00003110| 2f 4e 29 22 3b 41 4e 24 | 0d 02 58 14 20 e7 20 41 |/N)";AN$|..X. . A|
|00003120| 4e 24 3d 22 4e 22 20 8c | 8d 44 6c 42 0d 02 62 1c |N$="N" .|.DlB..b.|
|00003130| 20 53 57 31 3d 31 3a 46 | 4c 41 47 28 31 31 29 3d | SW1=1:F|LAG(11)=|
|00003140| 30 3a e5 20 8d 74 74 40 | 0d 02 6c 1f 20 e7 20 54 |0:. .tt@|..l. . T|
|00003150| 50 24 3d 22 53 22 20 8c | 20 54 50 24 3d 22 4c 22 |P$="S" .| TP$="L"|
|00003160| 3a e5 20 8d 54 58 41 0d | 02 76 20 20 44 59 3d 44 |:. .TXA.|.v  DY=D|
|00003170| 59 30 2b 31 34 3a 46 4c | 41 47 28 31 29 3d 30 3a |Y0+14:FL|AG(1)=0:|
|00003180| f2 4a 75 6c 64 61 79 0d | 02 80 16 20 46 4c 41 47 |.Julday.|... FLAG|
|00003190| 28 32 29 3d 30 3a f2 43 | 61 6c 64 61 79 0d 02 8a |(2)=0:.C|alday...|
|000031a0| 18 20 e7 20 43 4f 55 4e | 54 45 52 3c 4e 4d 4f 20 |. . COUN|TER<NMO |
|000031b0| 8c 8d 54 4e 41 0d 02 94 | 06 20 f1 0d 02 9e 17 20 |..TNA...|. ..... |
|000031c0| e8 22 41 67 61 69 6e 20 | 28 59 2f 4e 29 22 3b 41 |."Again |(Y/N)";A|
|000031d0| 4e 24 0d 02 a8 10 20 e7 | 20 41 4e 24 3d 22 4e 22 |N$.... .| AN$="N"|
|000031e0| 20 e0 0d 02 b2 22 20 e8 | 22 41 6e 6f 74 68 65 72 | ...." .|"Another|
|000031f0| 20 6c 6f 63 61 74 69 6f | 6e 20 28 59 2f 4e 29 22 | locatio|n (Y/N)"|
|00003200| 3b 41 4e 24 0d 02 bc 1b | 20 e7 20 41 4e 24 3d 22 |;AN$....| . AN$="|
|00003210| 59 22 20 8c 20 46 4c 41 | 47 28 31 31 29 3d 30 0d |Y" . FLA|G(11)=0.|
|00003220| 02 c6 0b 20 e5 20 8d 74 | 60 40 0d 02 d0 06 20 3a |... . .t|`@.... :|
|00003230| 0d 02 da 0d 20 dd f2 4d | 69 6e 73 65 63 0d 02 e4 |.... ..M|insec...|
|00003240| 1d 20 e7 20 53 57 31 3d | 31 20 f2 4d 69 6e 73 65 |. . SW1=|1 .Minse|
|00003250| 63 5f 49 6e 74 65 67 65 | 72 73 0d 02 ee 1d 20 e7 |c_Intege|rs.... .|
|00003260| 20 53 57 31 3d 2d 31 20 | f2 4d 69 6e 73 65 63 5f | SW1=-1 |.Minsec_|
|00003270| 44 65 63 69 6d 61 6c 0d | 02 f8 06 20 e1 0d 03 02 |Decimal.|... ....|
|00003280| 06 20 3a 0d 03 0c 16 20 | dd f2 4d 69 6e 73 65 63 |. :.... |..Minsec|
|00003290| 5f 49 6e 74 65 67 65 72 | 73 0d 03 16 1d 20 53 4e |_Integer|s.... SN|
|000032a0| 3d b4 28 58 29 3a 58 50 | 3d 94 28 58 29 3a 58 44 |=.(X):XP|=.(X):XD|
|000032b0| 3d a8 28 58 50 29 0d 03 | 20 19 20 41 3d 28 58 50 |=.(XP)..| . A=(XP|
|000032c0| 2d 58 44 29 2a 36 30 3a | 58 4d 3d a8 28 41 29 0d |-XD)*60:|XM=.(A).|
|000032d0| 03 2a 1c 20 58 53 3d a8 | 28 28 41 2d 58 4d 29 2a |.*. XS=.|((A-XM)*|
|000032e0| 36 30 30 2b 30 2e 35 29 | 2f 31 30 0d 03 34 0b 20 |600+0.5)|/10..4. |
|000032f0| 53 24 3d 22 2b 22 0d 03 | 3e 16 20 e7 20 53 4e 3d |S$="+"..|>. . SN=|
|00003300| 2d 31 20 20 8c 20 53 24 | 3d 22 2d 22 0d 03 48 06 |-1  . S$|="-"..H.|
|00003310| 20 e1 0d 03 52 06 20 3a | 0d 03 5c 15 20 dd f2 4d | ...R. :|..\. ..M|
|00003320| 69 6e 73 65 63 5f 44 65 | 63 69 6d 61 6c 0d 03 66 |insec_De|cimal..f|
|00003330| 0a 20 53 4e 3d 2b 31 0d | 03 70 21 20 e7 20 58 44 |. SN=+1.|.p! . XD|
|00003340| 3c 30 20 84 20 58 4d 3c | 30 20 84 20 58 53 3c 30 |<0 . XM<|0 . XS<0|
|00003350| 20 8c 20 53 4e 3d 2d 31 | 0d 03 7a 22 20 58 44 31 | . SN=-1|..z" XD1|
|00003360| 3d 94 28 58 44 29 3a 58 | 4d 31 3d 94 28 58 4d 29 |=.(XD):X|M1=.(XM)|
|00003370| 3a 58 53 31 3d 94 28 58 | 53 29 0d 03 84 23 20 58 |:XS1=.(X|S)...# X|
|00003380| 3d 28 90 04 58 53 31 2f | 36 30 29 2b 58 4d 31 29 |=(..XS1/|60)+XM1)|
|00003390| 2f 36 30 29 2b 58 44 31 | 29 2a 53 4e 0d 03 8e 06 |/60)+XD1|)*SN....|
|000033a0| 20 e1 0d 03 98 06 20 3a | 0d 03 a2 0d 20 dd f2 4a | ..... :|.... ..J|
|000033b0| 75 6c 64 61 79 0d 03 ac | 12 20 e7 20 46 4c 41 47 |ulday...|. . FLAG|
|000033c0| 28 31 29 3d 31 20 e1 0d | 03 b6 20 20 4d 4e 31 3d |(1)=1 ..|..  MN1=|
|000033d0| 4d 4e 3a 59 52 31 3d 59 | 52 3a 46 4c 41 47 28 31 |MN:YR1=Y|R:FLAG(1|
|000033e0| 29 3d 31 3a 42 3d 30 0d | 03 c0 15 20 e7 20 59 52 |)=1:B=0.|... . YR|
|000033f0| 31 3c 30 20 8c 20 59 52 | 31 2b 3d 31 0d 03 ca 1c |1<0 . YR|1+=1....|
|00003400| 20 e7 20 4d 4e 3c 33 20 | 8c 20 4d 4e 31 2b 3d 31 | . MN<3 |. MN1+=1|
|00003410| 32 3a 59 52 31 2d 3d 31 | 0d 03 d4 15 20 e7 20 59 |2:YR1-=1|.... . Y|
|00003420| 52 3c 31 35 38 32 20 8c | 20 8d 64 7c 43 0d 03 de |R<1582 .| .d|C...|
|00003430| 1d 20 e7 20 59 52 3d 31 | 35 38 32 20 80 20 4d 4e |. . YR=1|582 . MN|
|00003440| 3c 31 30 20 8c 20 8d 64 | 7c 43 0d 03 e8 25 20 e7 |<10 . .d||C...% .|
|00003450| 20 59 52 3d 31 35 38 32 | 20 80 20 4d 4e 3d 31 30 | YR=1582| . MN=10|
|00003460| 20 80 20 44 59 3c 31 35 | 20 8c 20 8d 64 7c 43 0d | . DY<15| . .d|C.|
|00003470| 03 f2 1e 20 41 3d a8 28 | 59 52 31 2f 31 30 30 29 |... A=.(|YR1/100)|
|00003480| 3a 42 3d 32 2d 41 2b a8 | 28 41 2f 34 29 0d 03 fc |:B=2-A+.|(A/4)...|
|00003490| 13 20 e7 20 59 52 31 3c | 30 20 8c 20 8d 54 50 44 |. . YR1<|0 . .TPD|
|000034a0| 0d 04 06 22 20 43 3d a8 | 28 33 36 35 2e 32 35 2a |..." C=.|(365.25*|
|000034b0| 59 52 31 29 2d 36 39 34 | 30 32 35 3a e5 20 8d 54 |YR1)-694|025:. .T|
|000034c0| 5a 44 0d 04 10 25 20 43 | 3d a4 49 54 47 28 28 33 |ZD...% C|=.ITG((3|
|000034d0| 36 35 2e 32 35 2a 59 52 | 31 29 2d 30 2e 37 35 29 |65.25*YR|1)-0.75)|
|000034e0| 2d 36 39 34 30 32 35 0d | 04 1a 19 20 44 3d a8 28 |-694025.|... D=.(|
|000034f0| 33 30 2e 36 30 30 31 2a | 28 4d 4e 31 2b 31 29 29 |30.6001*|(MN1+1))|
|00003500| 0d 04 24 15 20 44 4a 44 | 3d 42 2b 43 2b 44 2b 44 |..$. DJD|=B+C+D+D|
|00003510| 59 2d 30 2e 35 0d 04 2e | 06 20 e1 0d 04 38 06 20 |Y-0.5...|. ...8. |
|00003520| 3a 0d 04 42 0d 20 dd f2 | 43 61 6c 64 61 79 0d 04 |:..B. ..|Calday..|
|00003530| 4c 12 20 e7 20 46 4c 41 | 47 28 32 29 3d 31 20 e1 |L. . FLA|G(2)=1 .|
|00003540| 0d 04 56 1e 20 44 3d 44 | 4a 44 2b 30 2e 35 3a 49 |..V. D=D|JD+0.5:I|
|00003550| 3d a4 4c 49 46 28 44 29 | 3a 46 3d 44 2d 49 0d 04 |=.LIF(D)|:F=D-I..|
|00003560| 60 15 20 e7 20 46 3d 31 | 20 8c 20 46 3d 30 3a 49 |`. . F=1| . F=0:I|
|00003570| 2b 3d 31 0d 04 6a 1a 20 | e7 20 49 20 3c 3d 20 2d |+=1..j. |. I <= -|
|00003580| 31 31 35 38 36 30 20 8c | 20 8d 74 48 44 0d 04 74 |115860 .| .tHD..t|
|00003590| 29 20 41 3d a4 4c 49 46 | 28 28 49 2f 33 36 35 32 |) A=.LIF|((I/3652|
|000035a0| 34 2e 32 35 29 2b 39 2e | 39 38 33 35 37 32 36 45 |4.25)+9.|9835726E|
|000035b0| 2d 31 29 2b 31 34 0d 04 | 7e 16 20 49 3d 49 2b 31 |-1)+14..|~. I=I+1|
|000035c0| 2b 41 2d a4 4c 49 46 28 | 41 2f 34 29 0d 04 88 22 |+A-.LIF(|A/4)..."|
|000035d0| 20 42 3d a4 4c 49 46 28 | 28 49 2f 33 36 35 2e 32 | B=.LIF(|(I/365.2|
|000035e0| 35 29 2b 38 2e 30 32 36 | 30 31 45 2d 31 29 0d 04 |5)+8.026|01E-1)..|
|000035f0| 92 29 20 43 45 3d 49 2d | a4 4c 49 46 28 28 33 36 |.) CE=I-|.LIF((36|
|00003600| 35 2e 32 35 2a 42 29 2b | 37 2e 35 30 90 03 31 45 |5.25*B)+|7.50..1E|
|00003610| 2d 31 29 2b 34 31 36 0d | 04 9c 1e 20 47 3d a4 4c |-1)+416.|... G=.L|
|00003620| 49 46 28 43 45 2f 33 30 | 2e 36 30 30 31 29 3a 4d |IF(CE/30|.6001):M|
|00003630| 4e 3d 47 2d 31 0d 04 a6 | 26 20 44 59 3d 43 45 2d |N=G-1...|& DY=CE-|
|00003640| a4 4c 49 46 28 33 30 2e | 36 30 30 31 2a 47 29 2b |.LIF(30.|6001*G)+|
|00003650| 46 3a 59 52 3d 42 2b 31 | 38 39 39 0d 04 b0 17 20 |F:YR=B+1|899.... |
|00003660| e7 20 47 3e 31 33 2e 35 | 20 8c 20 4d 4e 3d 47 2d |. G>13.5| . MN=G-|
|00003670| 31 33 0d 04 ba 19 20 e7 | 20 4d 4e 3c 32 2e 35 20 |13.... .| MN<2.5 |
|00003680| 8c 20 59 52 3d 42 2b 31 | 39 30 30 0d 04 c4 13 20 |. YR=B+1|900.... |
|00003690| e7 20 59 52 3c 31 20 8c | 20 59 52 2d 3d 31 0d 04 |. YR<1 .| YR-=1..|
|000036a0| ce 0e 20 46 4c 41 47 28 | 32 29 3d 31 0d 04 d8 06 |.. FLAG(|2)=1....|
|000036b0| 20 e1 0d 04 e2 06 20 3a | 0d 04 ec 0c 20 dd f2 47 | ..... :|.... ..G|
|000036c0| 74 69 6d 65 0d 04 f6 17 | 20 e7 20 46 4c 41 47 28 |time....| . FLAG(|
|000036d0| 33 29 3d 31 20 8c 20 8d | 44 46 45 0d 05 00 1c 20 |3)=1 . .|DFE.... |
|000036e0| 58 4d 4e 3d 4d 4e 3a 58 | 44 59 3d 44 59 3a 46 4c |XMN=MN:X|DY=DY:FL|
|000036f0| 41 47 28 33 29 3d 31 0d | 05 0a 1f 20 46 4c 41 47 |AG(3)=1.|... FLAG|
|00003700| 28 31 29 3d 30 3a f2 4a | 75 6c 64 61 79 3a 58 44 |(1)=0:.J|ulday:XD|
|00003710| 4a 44 3d 44 4a 44 0d 05 | 14 18 20 4d 4e 3d 31 3a |JD=DJD..|.. MN=1:|
|00003720| 44 59 3d 30 3a 46 4c 41 | 47 28 31 29 3d 30 0d 05 |DY=0:FLA|G(1)=0..|
|00003730| 1e 18 20 f2 4a 75 6c 64 | 61 79 3a 54 3d 44 4a 44 |.. .Juld|ay:T=DJD|
|00003740| 2f 33 36 35 32 35 0d 05 | 28 2b 20 52 3d 36 2e 36 |/36525..|(+ R=6.6|
|00003750| 34 36 30 36 35 36 2b 28 | 35 2e 31 32 36 32 45 2d |460656+(|5.1262E-|
|00003760| 32 2b 28 54 2a 32 2e 35 | 38 31 45 2d 35 29 29 2a |2+(T*2.5|81E-5))*|
|00003770| 54 0d 05 32 2a 20 52 31 | 3d 32 34 30 30 2a 28 54 |T..2* R1|=2400*(T|
|00003780| 2d 28 28 59 52 2d 31 39 | 30 30 29 2f 31 30 30 29 |-((YR-19|00)/100)|
|00003790| 29 3a 42 3d 32 34 2d 52 | 2d 52 31 0d 05 3c 21 20 |):B=24-R|-R1..<! |
|000037a0| 54 30 3d 28 28 58 44 4a | 44 2d 44 4a 44 29 2a 36 |T0=((XDJ|D-DJD)*6|
|000037b0| 2e 35 37 30 39 38 45 2d | 32 29 2d 42 0d 05 46 13 |.57098E-|2)-B..F.|
|000037c0| 20 e7 20 53 57 32 3d 31 | 20 8c 20 8d 44 78 45 0d | . SW2=1| . .DxE.|
|000037d0| 05 50 14 20 e7 20 54 30 | 3c 30 20 8c 20 54 30 2b |.P. . T0|<0 . T0+|
|000037e0| 3d 32 34 0d 05 5a 0f 20 | 47 54 4d 3d 54 49 4d 2d |=24..Z. |GTM=TIM-|
|000037f0| 54 30 0d 05 64 16 20 e7 | 20 47 54 4d 3c 30 20 8c |T0..d. .| GTM<0 .|
|00003800| 20 47 54 4d 2b 3d 32 34 | 0d 05 6e 22 20 47 54 4d | GTM+=24|..n" GTM|
|00003810| 3d 47 54 4d 2a 39 2e 39 | 37 32 36 39 35 36 37 37 |=GTM*9.9|72695677|
|00003820| 45 2d 31 3a e5 20 8d 74 | 56 45 0d 05 78 1d 20 47 |E-1:. .t|VE..x. G|
|00003830| 54 4d 3d 28 54 49 4d 2a | 31 2e 30 30 32 37 33 37 |TM=(TIM*|1.002737|
|00003840| 39 30 38 29 2b 54 30 0d | 05 82 17 20 e7 20 47 54 |908)+T0.|... . GT|
|00003850| 4d 3e 32 34 20 8c 20 47 | 54 4d 2d 3d 32 34 0d 05 |M>24 . G|TM-=24..|
|00003860| 8c 16 20 e7 20 47 54 4d | 3c 30 20 8c 20 47 54 4d |.. . GTM|<0 . GTM|
|00003870| 2b 3d 32 34 0d 05 96 18 | 20 58 3d 47 54 4d 3a 53 |+=24....| X=GTM:S|
|00003880| 57 31 3d 31 3a f2 4d 69 | 6e 73 65 63 0d 05 a0 16 |W1=1:.Mi|nsec....|
|00003890| 20 48 53 3d 58 44 3a 4d | 53 3d 58 4d 3a 53 53 3d | HS=XD:M|S=XM:SS=|
|000038a0| 58 53 0d 05 aa 1b 20 4d | 4e 3d 58 4d 4e 3a 44 59 |XS.... M|N=XMN:DY|
|000038b0| 3d 58 44 59 3a 44 4a 44 | 3d 58 44 4a 44 0d 05 b4 |=XDY:DJD|=XDJD...|
|000038c0| 06 20 e1 0d 05 be 06 20 | 3a 0d 05 c8 0c 20 dd f2 |. ..... |:.... ..|
|000038d0| 48 72 61 6e 67 0d 05 d2 | 16 20 4c 53 54 3d 47 53 |Hrang...|. LST=GS|
|000038e0| 54 2b 28 4c 4f 4e 47 2f | 31 35 29 0d 05 dc 1a 20 |T+(LONG/|15).... |
|000038f0| e7 20 4c 53 54 3e 32 34 | 20 8c 20 4c 53 54 3d 4c |. LST>24| . LST=L|
|00003900| 53 54 2d 32 34 0d 05 e6 | 19 20 e7 20 4c 53 54 3c |ST-24...|. . LST<|
|00003910| 30 20 8c 20 4c 53 54 3d | 4c 53 54 2b 32 34 0d 05 |0 . LST=|LST+24..|
|00003920| f0 0c 20 50 3d 4c 53 54 | 2d 58 0d 05 fa 13 20 e7 |.. P=LST|-X.... .|
|00003930| 20 50 3c 30 20 8c 20 50 | 3d 50 2b 32 34 0d 06 04 | P<0 . P|=P+24...|
|00003940| 06 20 e1 0d 06 0e 06 20 | 3a 0d 06 18 0c 20 dd f2 |. ..... |:.... ..|
|00003950| 4f 62 6c 69 71 0d 06 22 | 12 20 e7 20 46 4c 41 47 |Obliq.."|. . FLAG|
|00003960| 28 35 29 3d 31 20 e1 0d | 06 2c 0e 20 46 4c 41 47 |(5)=1 ..|.,. FLAG|
|00003970| 28 35 29 3d 31 0d 06 36 | 18 20 f2 4a 75 6c 64 61 |(5)=1..6|. .Julda|
|00003980| 79 3a 54 3d 44 4a 44 2f | 33 36 35 32 35 0d 06 40 |y:T=DJD/|36525..@|
|00003990| 2b 20 43 3d 28 90 03 2d | 31 2e 38 31 45 2d 33 2a |+ C=(..-|1.81E-3*|
|000039a0| 54 29 2b 35 2e 39 45 2d | 33 29 2a 54 2b 34 2e 36 |T)+5.9E-|3)*T+4.6|
|000039b0| 38 34 35 45 31 29 2a 54 | 0d 06 4a 1f 20 45 50 53 |845E1)*T|..J. EPS|
|000039c0| 3d 32 2e 33 34 35 32 32 | 39 34 90 03 45 31 2d 28 |=2.34522|94..E1-(|
|000039d0| 43 2f 33 36 30 30 29 0d | 06 54 1c 20 45 50 53 52 |C/3600).|.T. EPSR|
|000039e0| 3d 45 50 53 2a 31 2e 37 | 35 34 33 32 39 32 35 32 |=EPS*1.7|54329252|
|000039f0| 45 2d 32 0d 06 5e 06 20 | e1 0d 06 68 06 20 3a 0d |E-2..^. |...h. :.|
|00003a00| 06 72 0c 20 dd f2 45 71 | 65 63 6c 0d 06 7c 17 20 |.r. ..Eq|ecl..|. |
|00003a10| e7 20 46 4c 41 47 28 37 | 29 3d 31 20 8c 20 8d 74 |. FLAG(7|)=1 . .t|
|00003a20| 6e 46 0d 06 86 0e 20 46 | 4c 41 47 28 37 29 3d 31 |nF.... F|LAG(7)=1|
|00003a30| 0d 06 90 00 19 20 e7 20 | 46 4c 41 47 28 36 29 3d |..... . |FLAG(6)=|
|00003a40| 30 20 8c 20 44 45 50 53 | 3d 30 0d 06 9a 1f 20 f2 |0 . DEPS|=0.... .|
|00003a50| 4f 62 6c 69 71 3a 45 50 | 53 31 3d a4 52 41 44 28 |Obliq:EP|S1=.RAD(|
|00003a60| 45 50 53 2b 44 45 50 53 | 29 0d 06 a4 1e 20 53 45 |EPS+DEPS|).... SE|
|00003a70| 50 53 3d b5 28 45 50 53 | 31 29 3a 43 45 50 53 3d |PS=.(EPS|1):CEPS=|
|00003a80| 9b 28 45 50 53 31 29 0d | 06 ae 14 20 43 59 3d 9b |.(EPS1).|... CY=.|
|00003a90| 28 59 29 3a 53 59 3d b5 | 28 59 29 0d 06 b8 1d 20 |(Y):SY=.|(Y).... |
|00003aa0| e7 20 94 28 43 59 29 3c | 31 45 2d 32 30 20 8c 20 |. .(CY)<|1E-20 . |
|00003ab0| 43 59 3d 31 45 2d 32 30 | 0d 06 c2 1d 20 54 59 3d |CY=1E-20|.... TY=|
|00003ac0| 53 59 2f 43 59 3a 43 58 | 3d 9b 28 58 29 3a 53 58 |SY/CY:CX|=.(X):SX|
|00003ad0| 3d b5 28 58 29 0d 06 cc | 22 20 53 51 3d 28 53 59 |=.(X)...|" SQ=(SY|
|00003ae0| 2a 43 45 50 53 29 2d 28 | 43 59 2a 53 45 50 53 2a |*CEPS)-(|CY*SEPS*|
|00003af0| 53 58 2a 53 57 33 29 0d | 06 d6 29 20 51 3d a4 41 |SX*SW3).|..) Q=.A|
|00003b00| 53 4e 28 53 51 29 3a 41 | 3d 28 53 58 2a 43 45 50 |SN(SQ):A|=(SX*CEP|
|00003b10| 53 29 2b 28 54 59 2a 53 | 45 50 53 2a 53 57 33 29 |S)+(TY*S|EPS*SW3)|
|00003b20| 0d 06 e0 0e 20 50 3d 99 | 28 41 2f 43 58 29 0d 06 |.... P=.|(A/CX)..|
|00003b30| ea 13 20 e7 20 43 58 3c | 30 20 8c 20 50 3d 50 2b |.. . CX<|0 . P=P+|
|00003b40| af 0d 06 f4 16 20 e7 20 | 50 3e 54 50 49 20 8c 20 |..... . |P>TPI . |
|00003b50| 50 3d 50 2d 54 50 49 0d | 06 fe 14 20 e7 20 50 3c |P=P-TPI.|... . P<|
|00003b60| 30 20 8c 20 50 3d 50 2b | 54 50 49 0d 07 08 06 20 |0 . P=P+|TPI.... |
|00003b70| e1 0d 07 12 06 20 3a 0d | 07 1c 0c 20 dd f2 4e 75 |..... :.|... ..Nu|
|00003b80| 74 61 74 0d 07 26 12 20 | e7 20 46 4c 41 47 28 36 |tat..&. |. FLAG(6|
|00003b90| 29 3d 31 20 e1 0d 07 30 | 18 20 46 4c 41 47 28 36 |)=1 ...0|. FLAG(6|
|00003ba0| 29 3d 31 3a 46 4c 41 47 | 28 37 29 3d 30 0d 07 3a |)=1:FLAG|(7)=0..:|
|00003bb0| 1f 20 f2 4a 75 6c 64 61 | 79 3a 54 3d 44 4a 44 2f |. .Julda|y:T=DJD/|
|00003bc0| 33 36 35 32 35 3a 54 32 | 3d 54 2a 54 0d 07 44 25 |36525:T2|=T*T..D%|
|00003bd0| 20 41 3d 31 2e 30 90 04 | 32 31 33 35 38 45 32 2a | A=1.0..|21358E2*|
|00003be0| 54 3a 42 3d 33 36 30 2a | 28 41 2d a8 28 41 29 29 |T:B=360*|(A-.(A))|
|00003bf0| 0d 07 4e 1f 20 4c 53 3d | 32 2e 37 39 36 39 36 37 |..N. LS=|2.796967|
|00003c00| 45 32 2b 33 2e 30 33 45 | 2d 34 2a 54 32 2b 42 0d |E2+3.03E|-4*T2+B.|
|00003c10| 07 58 25 20 41 3d 31 2e | 33 33 36 38 35 35 32 33 |.X% A=1.|33685523|
|00003c20| 31 45 33 2a 54 3a 42 3d | 33 36 30 2a 28 41 2d a8 |1E3*T:B=|360*(A-.|
|00003c30| 28 41 29 29 0d 07 62 20 | 20 4c 44 3d 32 2e 37 30 |(A))..b | LD=2.70|
|00003c40| 34 33 34 32 45 32 2d 31 | 2e 31 33 33 45 2d 33 2a |4342E2-1|.133E-3*|
|00003c50| 54 32 2b 42 0d 07 6c 25 | 20 41 3d 39 2e 39 90 03 |T2+B..l%| A=9.9..|
|00003c60| 37 33 36 30 35 36 45 31 | 2a 54 3a 42 3d 33 36 30 |736056E1|*T:B=360|
|00003c70| 2a 28 41 2d a8 28 41 29 | 29 0d 07 76 1e 20 4d 53 |*(A-.(A)|)..v. MS|
|00003c80| 3d 33 2e 35 38 34 37 35 | 38 45 32 2d 31 2e 35 45 |=3.58475|8E2-1.5E|
|00003c90| 2d 34 2a 54 32 2b 42 0d | 07 80 25 20 41 3d 31 2e |-4*T2+B.|..% A=1.|
|00003ca0| 33 32 35 90 03 32 33 35 | 39 45 33 2a 54 3a 42 3d |325..235|9E3*T:B=|
|00003cb0| 33 36 30 2a 28 41 2d a8 | 28 41 29 29 0d 07 8a 20 |360*(A-.|(A))... |
|00003cc0| 20 4d 44 3d 32 2e 39 36 | 31 30 34 36 45 32 2b 39 | MD=2.96|1046E2+9|
|00003cd0| 2e 31 39 32 45 2d 33 2a | 54 32 2b 42 0d 07 94 23 |.192E-3*|T2+B...#|
|00003ce0| 20 41 3d 35 2e 33 37 32 | 36 31 36 90 03 37 2a 54 | A=5.372|616..7*T|
|00003cf0| 3a 42 3d 33 36 30 2a 28 | 41 2d a8 28 41 29 29 0d |:B=360*(|A-.(A)).|
|00003d00| 07 9e 20 20 4e 4d 3d 32 | 2e 35 39 31 38 33 33 45 |..  NM=2|.591833E|
|00003d10| 32 2b 32 2e 30 37 38 45 | 2d 33 2a 54 32 2d 42 0d |2+2.078E|-3*T2-B.|
|00003d20| 07 a8 1f 20 54 4c 53 3d | 32 2a a4 52 41 44 28 4c |... TLS=|2*.RAD(L|
|00003d30| 53 29 3a 4e 4d 3d a4 52 | 41 44 28 4e 4d 29 0d 07 |S):NM=.R|AD(NM)..|
|00003d40| b2 1f 20 54 4e 4d 3d 32 | 2a a4 52 41 44 28 4e 4d |.. TNM=2|*.RAD(NM|
|00003d50| 29 3a 4d 53 3d a4 52 41 | 44 28 4d 53 29 0d 07 bc |):MS=.RA|D(MS)...|
|00003d60| 1f 20 54 4c 44 3d 32 2a | a4 52 41 44 28 4c 44 29 |. TLD=2*|.RAD(LD)|
|00003d70| 3a 4d 44 3d a4 52 41 44 | 28 4d 44 29 0d 07 c6 da |:MD=.RAD|(MD)....|
|00003d80| 20 44 50 53 49 3d 28 2d | 31 37 2e 32 33 32 37 2d | DPSI=(-|17.2327-|
|00003d90| 31 2e 37 33 37 45 2d 32 | 2a 54 29 2a b5 28 4e 4d |1.737E-2|*T)*.(NM|
|00003da0| 29 2b 28 2d 31 2e 32 37 | 32 39 2d 31 2e 33 45 2d |)+(-1.27|29-1.3E-|
|00003db0| 34 2a 54 29 2a b5 28 54 | 4c 53 29 2b 32 2e 30 38 |4*T)*.(T|LS)+2.08|
|00003dc0| 38 45 2d 31 2a b5 28 54 | 4e 4d 29 2d 32 2e 30 33 |8E-1*.(T|NM)-2.03|
|00003dd0| 37 45 2d 31 2a b5 28 54 | 4c 44 29 2b 28 31 2e 32 |7E-1*.(T|LD)+(1.2|
|00003de0| 36 31 45 2d 31 2d 33 2e | 31 45 2d 34 2a 54 29 2a |61E-1-3.|1E-4*T)*|
|00003df0| b5 28 4d 53 29 2b 36 2e | 37 35 45 2d 32 2a b5 28 |.(MS)+6.|75E-2*.(|
|00003e00| 4d 44 29 2d 28 34 2e 39 | 37 45 2d 32 2d 31 2e 32 |MD)-(4.9|7E-2-1.2|
|00003e10| 45 2d 34 2a 54 29 2a b5 | 28 54 4c 53 2b 4d 53 29 |E-4*T)*.|(TLS+MS)|
|00003e20| 2d 33 2e 34 32 45 2d 32 | 2a b5 28 54 4c 44 2d 4e |-3.42E-2|*.(TLD-N|
|00003e30| 4d 29 2d 32 2e 36 31 45 | 2d 32 2a b5 28 54 4c 44 |M)-2.61E|-2*.(TLD|
|00003e40| 2b 4d 44 29 2b 32 2e 31 | 34 45 2d 32 2a b5 28 54 |+MD)+2.1|4E-2*.(T|
|00003e50| 4c 53 2d 4d 53 29 0d 07 | d0 48 20 44 50 53 49 3d |LS-MS)..|.H DPSI=|
|00003e60| 44 50 53 49 2d 31 2e 34 | 39 45 2d 32 2a b5 28 54 |DPSI-1.4|9E-2*.(T|
|00003e70| 4c 53 2d 54 4c 44 2b 4d | 44 29 2b 31 2e 32 34 45 |LS-TLD+M|D)+1.24E|
|00003e80| 2d 32 2a b5 28 54 4c 53 | 2d 4e 4d 29 2b 31 2e 31 |-2*.(TLS|-NM)+1.1|
|00003e90| 34 45 2d 32 2a b5 28 54 | 4c 44 2d 4d 44 29 0d 07 |4E-2*.(T|LD-MD)..|
|00003ea0| da b0 20 44 45 50 53 3d | 28 39 2e 32 31 2b 39 2e |.. DEPS=|(9.21+9.|
|00003eb0| 31 45 2d 34 2a 54 29 2a | 9b 28 4e 4d 29 2b 28 35 |1E-4*T)*|.(NM)+(5|
|00003ec0| 2e 35 32 32 45 2d 31 2d | 32 2e 39 45 2d 34 2a 54 |.522E-1-|2.9E-4*T|
|00003ed0| 29 2a 9b 28 54 4c 53 29 | 2d 39 2e 30 34 45 2d 32 |)*.(TLS)|-9.04E-2|
|00003ee0| 2a 9b 28 54 4e 4d 29 2b | 38 2e 38 34 45 2d 32 2a |*.(TNM)+|8.84E-2*|
|00003ef0| 9b 28 54 4c 44 29 2b 32 | 2e 31 36 45 2d 32 2a 9b |.(TLD)+2|.16E-2*.|
|00003f00| 28 54 4c 53 2b 4d 53 29 | 2b 31 2e 38 33 45 2d 32 |(TLS+MS)|+1.83E-2|
|00003f10| 2a 9b 28 54 4c 44 2d 4e | 4d 29 2b 31 2e 31 33 45 |*.(TLD-N|M)+1.13E|
|00003f20| 2d 32 2a 9b 28 54 4c 44 | 2b 4d 44 29 2d 39 2e 33 |-2*.(TLD|+MD)-9.3|
|00003f30| 45 2d 33 2a 9b 28 54 4c | 53 2d 4d 53 29 2d 36 2e |E-3*.(TL|S-MS)-6.|
|00003f40| 36 45 2d 33 2a 9b 28 54 | 4c 53 2d 4e 4d 29 0d 07 |6E-3*.(T|LS-NM)..|
|00003f50| e4 22 20 44 50 53 49 3d | 44 50 53 49 2f 33 36 30 |." DPSI=|DPSI/360|
|00003f60| 30 3a 44 45 50 53 3d 44 | 45 50 53 2f 33 36 30 30 |0:DEPS=D|EPS/3600|
|00003f70| 0d 07 ee 06 20 e1 0d 07 | f8 06 20 3a 0d 08 02 0f |.... ...|.. :....|
|00003f80| 20 dd f2 50 61 72 61 6c | 6c 61 78 0d 08 0c 17 20 | ..Paral|lax.... |
|00003f90| e7 20 46 4c 41 47 28 31 | 31 29 3d 31 20 8c 8d 44 |. FLAG(1|1)=1 ..D|
|00003fa0| 48 48 0d 08 16 1c 20 43 | 50 48 49 3d 9b 28 50 48 |HH.... C|PHI=.(PH|
|00003fb0| 49 29 3a 53 50 48 49 3d | b5 28 50 48 49 29 0d 08 |I):SPHI=|.(PHI)..|
|00003fc0| 20 1e 20 55 3d 99 28 39 | 2e 39 36 36 34 37 45 2d | . U=.(9|.96647E-|
|00003fd0| 31 2a 53 50 48 49 2f 43 | 50 48 49 29 0d 08 2a 1f |1*SPHI/C|PHI)..*.|
|00003fe0| 20 43 55 3d 9b 28 55 29 | 3a 53 55 3d b5 28 55 29 | CU=.(U)|:SU=.(U)|
|00003ff0| 3a 46 4c 41 47 28 31 31 | 29 3d 31 0d 08 34 22 20 |:FLAG(11|)=1..4" |
|00004000| 52 53 50 3d 28 39 2e 39 | 36 36 34 37 45 2d 31 2a |RSP=(9.9|6647E-1*|
|00004010| 53 55 29 2b 28 48 54 2a | 53 50 48 49 29 0d 08 3e |SU)+(HT*|SPHI)..>|
|00004020| 15 20 52 43 50 3d 43 55 | 2b 28 48 54 2a 43 50 48 |. RCP=CU|+(HT*CPH|
|00004030| 49 29 0d 08 48 10 20 52 | 50 3d 31 2f b5 28 45 48 |I)..H. R|P=1/.(EH|
|00004040| 50 29 0d 08 52 17 20 e7 | 20 53 57 36 3d 2d 31 20 |P)..R. .| SW6=-1 |
|00004050| f2 50 61 72 61 5f 31 3a | e1 0d 08 5c 0c 20 f2 50 |.Para_1:|...\. .P|
|00004060| 61 72 61 5f 32 0d 08 66 | 06 20 e1 0d 08 70 06 20 |ara_2..f|. ...p. |
|00004070| 3a 0d 08 7a 0d 20 dd f2 | 50 61 72 61 5f 31 0d 08 |:..z. ..|Para_1..|
|00004080| 84 1a 20 58 31 3d 58 3a | 59 31 3d 59 3a 44 50 31 |.. X1=X:|Y1=Y:DP1|
|00004090| 3d 30 3a 44 51 31 3d 30 | 0d 08 8e 1c 20 f2 50 61 |=0:DQ1=0|.... .Pa|
|000040a0| 72 61 5f 32 3a 44 50 32 | 3d 50 2d 58 3a 44 51 32 |ra_2:DP2|=P-X:DQ2|
|000040b0| 3d 51 2d 59 0d 08 98 32 | 20 e7 20 28 94 28 44 50 |=Q-Y...2| . (.(DP|
|000040c0| 32 2d 44 50 31 29 3c 31 | 45 2d 36 29 20 80 20 28 |2-DP1)<1|E-6) . (|
|000040d0| 94 28 44 51 32 2d 44 51 | 31 29 3c 31 45 2d 36 29 |.(DQ2-DQ|1)<1E-6)|
|000040e0| 20 8c 8d 74 76 48 0d 08 | a2 16 20 58 3d 58 31 2d | ..tvH..|.. X=X1-|
|000040f0| 44 50 32 3a 59 3d 59 31 | 2d 44 51 32 0d 08 ac 1b |DP2:Y=Y1|-DQ2....|
|00004100| 20 44 50 31 3d 44 50 32 | 3a 44 51 31 3d 44 51 32 | DP1=DP2|:DQ1=DQ2|
|00004110| 3a e5 20 8d 74 4e 48 0d | 08 b6 16 20 50 3d 58 31 |:. .tNH.|... P=X1|
|00004120| 2d 44 50 32 3a 51 3d 59 | 31 2d 44 51 32 0d 08 c0 |-DP2:Q=Y|1-DQ2...|
|00004130| 0e 20 58 3d 58 31 3a 59 | 3d 59 31 0d 08 ca 06 20 |. X=X1:Y|=Y1.... |
|00004140| e1 0d 08 d4 06 20 3a 0d | 08 de 0d 20 dd f2 50 61 |..... :.|... ..Pa|
|00004150| 72 61 5f 32 0d 08 e8 1c | 20 43 58 3d 9b 28 58 29 |ra_2....| CX=.(X)|
|00004160| 3a 53 59 3d b5 28 59 29 | 3a 43 59 3d 9b 28 59 29 |:SY=.(Y)|:CY=.(Y)|
|00004170| 0d 08 f2 26 20 54 44 58 | 3d 28 52 43 50 2a b5 28 |...& TDX|=(RCP*.(|
|00004180| 58 29 29 2f 28 28 52 50 | 2a 43 59 29 2d 28 52 43 |X))/((RP|*CY)-(RC|
|00004190| 50 2a 43 58 29 29 0d 08 | fc 1d 20 44 58 3d 99 28 |P*CX))..|.. DX=.(|
|000041a0| 54 44 58 29 3a 50 3d 58 | 2b 44 58 3a 43 50 3d 9b |TDX):P=X|+DX:CP=.|
|000041b0| 28 50 29 0d 09 06 16 20 | e7 20 50 3e 54 50 49 20 |(P).... |. P>TPI |
|000041c0| 8c 20 50 3d 50 2d 54 50 | 49 0d 09 10 14 20 e7 20 |. P=P-TP|I.... . |
|000041d0| 50 3c 30 20 8c 20 50 3d | 50 2b 54 50 49 0d 09 1a |P<0 . P=|P+TPI...|
|000041e0| 27 20 51 3d 99 28 43 50 | 2a 28 52 50 2a 53 59 2d |' Q=.(CP|*(RP*SY-|
|000041f0| 52 53 50 29 2f 28 52 50 | 2a 43 59 2a 43 58 2d 52 |RSP)/(RP|*CY*CX-R|
|00004200| 43 50 29 29 0d 09 24 06 | 20 e1 0d 09 2e 06 20 3a |CP))..$.| ..... :|
|00004210| 0d 09 38 0e 20 dd f2 41 | 6e 6f 6d 61 6c 79 0d 09 |..8. ..A|nomaly..|
|00004220| 42 1c 20 4d 3d 4d 41 2d | 54 50 49 2a a8 28 4d 41 |B. M=MA-|TPI*.(MA|
|00004230| 2f 54 50 49 29 3a 45 41 | 3d 4d 0d 09 4c 17 20 44 |/TPI):EA|=M..L. D|
|00004240| 4c 41 3d 45 41 2d 28 53 | 2a b5 28 45 41 29 29 2d |LA=EA-(S|*.(EA))-|
|00004250| 4d 0d 09 56 18 20 e7 20 | 94 28 44 4c 41 29 3c 31 |M..V. . |.(DLA)<1|
|00004260| 45 2d 36 20 8c 8d 44 74 | 49 0d 09 60 1a 20 44 4c |E-6 ..Dt|I..`. DL|
|00004270| 41 3d 44 4c 41 2f 28 31 | 2d 28 53 2a 9b 28 45 41 |A=DLA/(1|-(S*.(EA|
|00004280| 29 90 03 0d 09 6a 15 20 | 45 41 3d 45 41 2d 44 4c |)....j. |EA=EA-DL|
|00004290| 41 3a e5 20 8d 44 4c 49 | 0d 09 74 20 20 54 4e 55 |A:. .DLI|..t  TNU|
|000042a0| 32 3d b6 28 28 31 2b 53 | 29 2f 28 31 2d 53 29 29 |2=.((1+S|)/(1-S))|
|000042b0| 2a b7 28 45 41 2f 32 29 | 0d 09 7e 11 20 4e 55 3d |*.(EA/2)|..~. NU=|
|000042c0| 32 2a 99 28 54 4e 55 32 | 29 0d 09 88 06 20 e1 0d |2*.(TNU2|).... ..|
|000042d0| 09 92 06 20 3a 0d 09 9c | 0a 20 dd f2 53 75 6e 0d |... :...|. ..Sun.|
|000042e0| 09 a6 1f 20 f2 4a 75 6c | 64 61 79 3a 54 3d 44 4a |... .Jul|day:T=DJ|
|000042f0| 44 2f 33 36 35 32 35 3a | 54 32 3d 54 2a 54 0d 09 |D/36525:|T2=T*T..|
|00004300| b0 25 20 41 3d 31 2e 30 | 90 04 32 31 33 35 39 45 |.% A=1.0|..21359E|
|00004310| 32 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |2*T:B=36|0*(A-.(A|
|00004320| 29 29 0d 09 ba 21 20 4c | 53 3d 32 2e 37 39 36 39 |))...! L|S=2.7969|
|00004330| 36 36 38 45 32 2b 33 2e | 30 32 35 45 2d 34 2a 54 |668E2+3.|025E-4*T|
|00004340| 32 2b 42 0d 09 c4 25 20 | 41 3d 39 2e 39 90 03 37 |2+B...% |A=9.9..7|
|00004350| 33 36 30 34 32 45 31 2a | 54 3a 42 3d 33 36 30 2a |36042E1*|T:B=360*|
|00004360| 28 41 2d a8 28 41 29 29 | 0d 09 ce 2a 20 4d 53 3d |(A-.(A))|...* MS=|
|00004370| 33 2e 35 38 34 37 35 38 | 33 45 32 2d 28 31 2e 35 |3.584758|3E2-(1.5|
|00004380| 45 2d 34 2b 33 2e 33 45 | 2d 36 2a 54 29 2a 54 32 |E-4+3.3E|-6*T)*T2|
|00004390| 2b 42 0d 09 d8 27 20 53 | 3d 31 2e 36 37 35 31 30 |+B...' S|=1.67510|
|000043a0| 34 45 2d 32 2d 34 2e 31 | 38 45 2d 35 2a 54 2d 31 |4E-2-4.1|8E-5*T-1|
|000043b0| 2e 32 36 45 2d 37 2a 54 | 32 0d 09 e2 19 20 4d 41 |.26E-7*T|2.... MA|
|000043c0| 3d a4 52 41 44 28 4d 53 | 29 3a f2 41 6e 6f 6d 61 |=.RAD(MS|):.Anoma|
|000043d0| 6c 79 0d 09 ec 25 20 41 | 3d 36 2e 32 35 35 32 30 |ly...% A|=6.25520|
|000043e0| 39 34 37 32 45 31 2a 54 | 3a 42 3d 33 36 30 2a 28 |9472E1*T|:B=360*(|
|000043f0| 41 2d a8 28 41 29 29 0d | 09 f6 16 20 41 31 3d a4 |A-.(A)).|... A1=.|
|00004400| 52 41 44 28 31 35 33 2e | 32 33 2b 42 29 0d 0a 00 |RAD(153.|23+B)...|
|00004410| 25 20 41 3d 31 2e 32 35 | 31 30 34 31 38 39 34 45 |% A=1.25|1041894E|
|00004420| 32 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |2*T:B=36|0*(A-.(A|
|00004430| 29 29 0d 0a 0a 16 20 42 | 31 3d a4 52 41 44 28 32 |)).... B|1=.RAD(2|
|00004440| 31 36 2e 35 37 2b 42 29 | 0d 0a 14 25 20 41 3d 39 |16.57+B)|...% A=9|
|00004450| 2e 31 35 36 37 36 36 30 | 32 38 45 31 2a 54 3a 42 |.1567660|28E1*T:B|
|00004460| 3d 33 36 30 2a 28 41 2d | a8 28 41 29 29 0d 0a 1e |=360*(A-|.(A))...|
|00004470| 16 20 43 31 3d a4 52 41 | 44 28 33 31 32 2e 36 39 |. C1=.RA|D(312.69|
|00004480| 2b 42 29 0d 0a 28 25 20 | 41 3d 31 2e 32 33 36 38 |+B)..(% |A=1.2368|
|00004490| 35 33 30 39 35 45 33 2a | 54 3a 42 3d 33 36 30 2a |53095E3*|T:B=360*|
|000044a0| 28 41 2d a8 28 41 29 29 | 0d 0a 32 21 20 44 31 3d |(A-.(A))|..2! D1=|
|000044b0| a4 52 41 44 28 33 35 30 | 2e 37 34 2d 31 2e 34 34 |.RAD(350|.74-1.44|
|000044c0| 45 2d 33 2a 54 32 2b 42 | 29 0d 0a 3c 1b 20 45 31 |E-3*T2+B|)..<. E1|
|000044d0| 3d a4 52 41 44 28 32 33 | 31 2e 31 39 2b 32 30 2e |=.RAD(23|1.19+20.|
|000044e0| 32 2a 54 29 0d 0a 46 25 | 20 41 3d 31 2e 38 33 31 |2*T)..F%| A=1.831|
|000044f0| 33 35 33 32 30 38 45 32 | 2a 54 3a 42 3d 33 36 30 |353208E2|*T:B=360|
|00004500| 2a 28 41 2d a8 28 41 29 | 29 0d 0a 50 15 20 48 31 |*(A-.(A)|)..P. H1|
|00004510| 3d a4 52 41 44 28 33 35 | 33 2e 34 2b 42 29 0d 0a |=.RAD(35|3.4+B)..|
|00004520| 5a 4a 20 44 4c 3d 31 2e | 33 34 45 2d 33 2a 9b 28 |ZJ DL=1.|34E-3*.(|
|00004530| 41 31 29 2b 31 2e 35 34 | 45 2d 33 2a 9b 28 42 31 |A1)+1.54|E-3*.(B1|
|00004540| 29 2b 32 45 2d 33 2a 9b | 28 43 31 29 2b 31 2e 37 |)+2E-3*.|(C1)+1.7|
|00004550| 39 45 2d 33 2a b5 28 44 | 31 29 2b 31 2e 37 38 45 |9E-3*.(D|1)+1.78E|
|00004560| 2d 33 2a b5 28 45 31 29 | 0d 0a 64 50 20 44 52 3d |-3*.(E1)|..dP DR=|
|00004570| 35 2e 34 33 45 2d 36 2a | b5 28 41 31 29 2b 31 2e |5.43E-6*|.(A1)+1.|
|00004580| 35 37 35 45 2d 35 2a b5 | 28 42 31 29 2b 31 2e 36 |575E-5*.|(B1)+1.6|
|00004590| 32 37 45 2d 35 2a b5 28 | 43 31 29 2b 33 2e 30 37 |27E-5*.(|C1)+3.07|
|000045a0| 36 45 2d 35 2a 9b 28 44 | 31 29 2b 39 2e 32 37 45 |6E-5*.(D|1)+9.27E|
|000045b0| 2d 36 2a b5 28 48 31 29 | 0d 0a 6e 1a 20 4c 53 4e |-6*.(H1)|..n. LSN|
|000045c0| 3d 4e 55 2b a4 52 41 44 | 28 4c 53 2d 4d 53 2b 44 |=NU+.RAD|(LS-MS+D|
|000045d0| 4c 29 0d 0a 78 21 20 52 | 53 4e 3d 31 2e 30 90 06 |L)..x! R|SN=1.0..|
|000045e0| 32 2a 28 31 2d 53 2a 9b | 28 45 41 29 29 2b 44 52 |2*(1-S*.|(EA))+DR|
|000045f0| 0d 0a 82 20 20 e7 20 4c | 53 4e 3c 30 20 8c 20 4c |...  . L|SN<0 . L|
|00004600| 53 4e 3d 4c 53 4e 2b 54 | 50 49 3a e5 8d 74 42 4a |SN=LSN+T|PI:..tBJ|
|00004610| 0d 0a 8c 23 20 e7 20 4c | 53 4e 3e 54 50 49 20 8c |...# . L|SN>TPI .|
|00004620| 20 4c 53 4e 3d 4c 53 4e | 2d 54 50 49 3a e5 20 8d | LSN=LSN|-TPI:. .|
|00004630| 74 4c 4a 0d 0a 96 06 20 | e1 0d 0a a0 06 20 3a 0d |tLJ.... |..... :.|
|00004640| 0a aa 0b 20 dd f2 4d 6f | 6f 6e 0d 0a b4 1f 20 f2 |... ..Mo|on.... .|
|00004650| 4a 75 6c 64 61 79 3a 54 | 3d 44 4a 44 2f 33 36 35 |Julday:T|=DJD/365|
|00004660| 32 35 3a 54 32 3d 54 2a | 54 0d 0a be 26 20 4d 31 |25:T2=T*|T...& M1|
|00004670| 3d 32 2e 37 33 32 31 35 | 38 32 31 33 45 31 3a 4d |=2.73215|8213E1:M|
|00004680| 32 3d 33 2e 36 35 32 35 | 39 36 34 30 37 45 32 0d |2=3.6525|96407E2.|
|00004690| 0a c8 26 20 4d 33 3d 32 | 2e 37 35 35 34 35 35 30 |..& M3=2|.7554550|
|000046a0| 39 34 45 31 3a 4d 34 3d | 32 2e 39 35 33 30 35 38 |94E1:M4=|2.953058|
|000046b0| 38 36 38 45 31 0d 0a d2 | 26 20 4d 35 3d 32 2e 37 |868E1...|& M5=2.7|
|000046c0| 32 31 32 90 03 30 33 39 | 45 31 3a 4d 36 3d 36 2e |212..039|E1:M6=6.|
|000046d0| 37 39 38 33 36 33 33 30 | 37 45 33 0d 0a dc 22 20 |79836330|7E3..." |
|000046e0| 4d 31 3d 44 4a 44 2f 4d | 31 3a 4d 32 3d 44 4a 44 |M1=DJD/M|1:M2=DJD|
|000046f0| 2f 4d 32 3a 4d 33 3d 44 | 4a 44 2f 4d 33 0d 0a e6 |/M2:M3=D|JD/M3...|
|00004700| 22 20 4d 34 3d 44 4a 44 | 2f 4d 34 3a 4d 35 3d 44 |" M4=DJD|/M4:M5=D|
|00004710| 4a 44 2f 4d 35 3a 4d 36 | 3d 44 4a 44 2f 4d 36 0d |JD/M5:M6|=DJD/M6.|
|00004720| 0a f0 28 20 4d 31 3d 33 | 36 30 2a 28 4d 31 2d a8 |..( M1=3|60*(M1-.|
|00004730| 28 4d 31 29 29 3a 4d 32 | 3d 33 36 30 2a 28 4d 32 |(M1)):M2|=360*(M2|
|00004740| 2d a8 28 4d 32 29 29 0d | 0a fa 28 20 4d 33 3d 33 |-.(M2)).|..( M3=3|
|00004750| 36 30 2a 28 4d 33 2d a8 | 28 4d 33 29 29 3a 4d 34 |60*(M3-.|(M3)):M4|
|00004760| 3d 33 36 30 2a 28 4d 34 | 2d a8 28 4d 34 29 29 0d |=360*(M4|-.(M4)).|
|00004770| 0b 04 28 20 4d 35 3d 33 | 36 30 2a 28 4d 35 2d a8 |..( M5=3|60*(M5-.|
|00004780| 28 4d 35 29 29 3a 4d 36 | 3d 33 36 30 2a 28 4d 36 |(M5)):M6|=360*(M6|
|00004790| 2d a8 28 4d 36 29 29 0d | 0b 0e 2e 20 4c 44 3d 32 |-.(M6)).|... LD=2|
|000047a0| 2e 37 30 34 33 34 31 36 | 34 45 32 2b 4d 31 2d 28 |.7043416|4E2+M1-(|
|000047b0| 31 2e 31 33 33 45 2d 33 | 2d 31 2e 39 45 2d 36 2a |1.133E-3|-1.9E-6*|
|000047c0| 54 29 2a 54 32 0d 0b 18 | 2c 20 4d 53 3d 33 2e 35 |T)*T2...|, MS=3.5|
|000047d0| 38 34 37 35 38 33 33 45 | 32 2b 4d 32 2d 28 31 2e |8475833E|2+M2-(1.|
|000047e0| 35 45 2d 34 2b 33 2e 33 | 45 2d 36 2a 54 29 2a 54 |5E-4+3.3|E-6*T)*T|
|000047f0| 32 0d 0b 22 2f 20 4d 44 | 3d 32 2e 39 36 31 30 34 |2.."/ MD|=2.96104|
|00004800| 36 30 38 45 32 2b 4d 33 | 2b 28 39 2e 31 39 32 45 |608E2+M3|+(9.192E|
|00004810| 2d 33 2b 31 2e 34 34 45 | 2d 35 2a 54 29 2a 54 32 |-3+1.44E|-5*T)*T2|
|00004820| 0d 0b 2c 2e 20 44 45 3d | 33 2e 35 30 37 33 37 34 |..,. DE=|3.507374|
|00004830| 38 36 45 32 2b 4d 34 2d | 28 31 2e 34 33 36 45 2d |86E2+M4-|(1.436E-|
|00004840| 33 2d 31 2e 39 45 2d 36 | 2a 54 29 2a 54 32 0d 0b |3-1.9E-6|*T)*T2..|
|00004850| 36 28 20 46 3d 31 31 2e | 32 35 30 38 38 39 2b 4d |6( F=11.|250889+M|
|00004860| 35 2d 28 33 2e 32 31 31 | 45 2d 33 2b 33 45 2d 37 |5-(3.211|E-3+3E-7|
|00004870| 2a 54 29 2a 54 32 0d 0b | 40 2d 20 4e 3d 32 2e 35 |*T)*T2..|@- N=2.5|
|00004880| 39 31 38 33 32 37 35 45 | 32 2d 4d 36 2b 28 32 2e |9183275E|2-M6+(2.|
|00004890| 30 37 38 45 2d 33 2b 32 | 2e 32 45 2d 35 2a 54 29 |078E-3+2|.2E-5*T)|
|000048a0| 2a 54 32 0d 0b 4a 20 20 | 41 3d a4 52 41 44 28 35 |*T2..J  |A=.RAD(5|
|000048b0| 31 2e 32 2b 32 30 2e 32 | 2a 54 29 3a 53 41 3d b5 |1.2+20.2|*T):SA=.|
|000048c0| 28 41 29 0d 0b 54 12 20 | 53 4e 3d b5 28 a4 52 41 |(A)..T. |SN=.(.RA|
|000048d0| 44 28 4e 29 29 0d 0b 5e | 24 20 42 3d 33 34 36 2e |D(N))..^|$ B=346.|
|000048e0| 35 36 2b 28 31 33 32 2e | 38 37 2d 39 2e 31 37 31 |56+(132.|87-9.171|
|000048f0| 33 45 2d 33 2a 54 29 2a | 54 0d 0b 68 1b 20 53 42 |3E-3*T)*|T..h. SB|
|00004900| 3d 33 2e 39 36 34 45 2d | 33 2a b5 28 a4 52 41 44 |=3.964E-|3*.(.RAD|
|00004910| 28 42 29 29 0d 0b 72 06 | 20 3a 0d 0b 7c 23 20 43 |(B))..r.| :..|# C|
|00004920| 3d a4 52 41 44 28 4e 2b | 32 37 35 2e 30 35 2d 32 |=.RAD(N+|275.05-2|
|00004930| 2e 33 2a 54 29 3a 53 43 | 3d b5 28 43 29 0d 0b 86 |.3*T):SC|=.(C)...|
|00004940| 24 20 4c 44 3d 4c 44 2b | 32 2e 33 33 45 2d 34 2a |$ LD=LD+|2.33E-4*|
|00004950| 53 41 2b 53 42 2b 31 2e | 39 36 34 45 2d 33 2a 53 |SA+SB+1.|964E-3*S|
|00004960| 4e 0d 0b 90 00 15 20 4d | 53 3d 4d 53 2d 31 2e 37 |N..... M|S=MS-1.7|
|00004970| 37 45 2d 33 2a 53 41 0d | 0b 9a 24 20 4d 44 3d 4d |7E-3*SA.|..$ MD=M|
|00004980| 44 2b 38 2e 31 37 45 2d | 34 2a 53 41 2b 53 42 2b |D+8.17E-|4*SA+SB+|
|00004990| 32 2e 35 34 31 45 2d 33 | 2a 53 4e 0d 0b a4 24 20 |2.541E-3|*SN...$ |
|000049a0| 46 3d 46 2b 53 42 2d 32 | 2e 34 36 39 31 45 2d 32 |F=F+SB-2|.4691E-2|
|000049b0| 2a 53 4e 2d 34 2e 33 32 | 38 45 2d 33 2a 53 43 0d |*SN-4.32|8E-3*SC.|
|000049c0| 0b ae 25 20 44 45 3d 44 | 45 2b 32 2e 30 31 31 45 |..% DE=D|E+2.011E|
|000049d0| 2d 33 2a 53 41 2b 53 42 | 2b 31 2e 39 36 34 45 2d |-3*SA+SB|+1.964E-|
|000049e0| 33 2a 53 4e 0d 0b b8 26 | 20 45 3d 31 2d 28 32 2e |3*SN...&| E=1-(2.|
|000049f0| 34 39 35 45 2d 33 2b 37 | 2e 35 32 45 2d 36 2a 54 |495E-3+7|.52E-6*T|
|00004a00| 29 2a 54 3a 45 32 3d 45 | 2a 45 0d 0b c2 26 20 4c |)*T:E2=E|*E...& L|
|00004a10| 44 3d a4 52 41 44 28 4c | 44 29 3a 4d 53 3d a4 52 |D=.RAD(L|D):MS=.R|
|00004a20| 41 44 28 4d 53 29 3a 4e | 3d a4 52 41 44 28 4e 29 |AD(MS):N|=.RAD(N)|
|00004a30| 0d 0b cc 26 20 44 45 3d | a4 52 41 44 28 44 45 29 |...& DE=|.RAD(DE)|
|00004a40| 3a 46 3d a4 52 41 44 28 | 46 29 3a 4d 44 3d a4 52 |:F=.RAD(|F):MD=.R|
|00004a50| 41 44 28 4d 44 29 0d 0b | d6 cf 20 4c 3d 36 2e 32 |AD(MD)..|.. L=6.2|
|00004a60| 38 38 37 35 2a b5 28 4d | 44 29 2b 31 2e 32 37 34 |8875*.(M|D)+1.274|
|00004a70| 30 31 38 2a b5 28 32 2a | 44 45 2d 4d 44 29 2b 36 |018*.(2*|DE-MD)+6|
|00004a80| 2e 35 38 33 30 39 45 2d | 31 2a b5 28 32 2a 44 45 |.58309E-|1*.(2*DE|
|00004a90| 29 2b 32 2e 31 33 36 31 | 36 45 2d 31 2a b5 28 32 |)+2.1361|6E-1*.(2|
|00004aa0| 2a 4d 44 29 2d 45 2a 31 | 2e 38 35 35 39 36 45 2d |*MD)-E*1|.85596E-|
|00004ab0| 31 2a b5 28 4d 53 29 2d | 31 2e 31 34 33 33 36 45 |1*.(MS)-|1.14336E|
|00004ac0| 2d 31 2a b5 28 32 2a 46 | 29 2b 35 2e 38 37 39 33 |-1*.(2*F|)+5.8793|
|00004ad0| 45 2d 32 2a b5 28 32 2a | 28 44 45 2d 4d 44 29 29 |E-2*.(2*|(DE-MD))|
|00004ae0| 2b 35 2e 37 32 31 32 45 | 2d 32 2a 45 2a b5 28 32 |+5.7212E|-2*E*.(2|
|00004af0| 2a 44 45 2d 4d 53 2d 4d | 44 29 2b 35 2e 33 33 32 |*DE-MS-M|D)+5.332|
|00004b00| 45 2d 32 2a b5 28 32 2a | 44 45 2b 4d 44 29 2b 34 |E-2*.(2*|DE+MD)+4|
|00004b10| 2e 35 38 37 34 45 2d 32 | 2a 45 2a b5 28 32 2a 44 |.5874E-2|*E*.(2*D|
|00004b20| 45 2d 4d 53 29 0d 0b e0 | d4 20 4c 3d 4c 2b 34 2e |E-MS)...|. L=L+4.|
|00004b30| 31 30 32 34 45 2d 32 2a | 45 2a b5 28 4d 44 2d 4d |1024E-2*|E*.(MD-M|
|00004b40| 53 29 2d 33 2e 34 37 31 | 38 45 2d 32 2a b5 28 44 |S)-3.471|8E-2*.(D|
|00004b50| 45 29 2d 45 2a 33 2e 30 | 34 36 35 45 2d 32 2a b5 |E)-E*3.0|465E-2*.|
|00004b60| 28 4d 53 2b 4d 44 29 2b | 31 2e 35 33 32 36 45 2d |(MS+MD)+|1.5326E-|
|00004b70| 32 2a b5 28 32 2a 28 44 | 45 2d 46 29 29 2d 31 2e |2*.(2*(D|E-F))-1.|
|00004b80| 32 35 32 38 45 2d 32 2a | b5 28 32 2a 46 2b 4d 44 |2528E-2*|.(2*F+MD|
|00004b90| 29 2d 31 2e 30 39 38 45 | 2d 32 2a b5 28 32 2a 46 |)-1.098E|-2*.(2*F|
|00004ba0| 2d 4d 44 29 2b 31 2e 30 | 36 37 34 45 2d 32 2a b5 |-MD)+1.0|674E-2*.|
|00004bb0| 28 34 2a 44 45 2d 4d 44 | 29 2b 31 2e 30 30 33 34 |(4*DE-MD|)+1.0034|
|00004bc0| 45 2d 32 2a b5 28 33 2a | 4d 44 29 2b 38 2e 35 34 |E-2*.(3*|MD)+8.54|
|00004bd0| 38 45 2d 33 2a b5 28 34 | 2a 44 45 2d 32 2a 4d 44 |8E-3*.(4|*DE-2*MD|
|00004be0| 29 2d 45 2a 37 2e 39 31 | 45 2d 33 2a b5 28 4d 53 |)-E*7.91|E-3*.(MS|
|00004bf0| 2d 4d 44 2b 32 2a 44 45 | 29 0d 0b ea c4 20 4c 3d |-MD+2*DE|).... L=|
|00004c00| 4c 2d 45 2a 36 2e 37 38 | 33 45 2d 33 2a b5 28 32 |L-E*6.78|3E-3*.(2|
|00004c10| 2a 44 45 2b 4d 53 29 2b | 35 2e 31 36 32 45 2d 33 |*DE+MS)+|5.162E-3|
|00004c20| 2a b5 28 4d 44 2d 44 45 | 29 2b 45 2a 35 45 2d 33 |*.(MD-DE|)+E*5E-3|
|00004c30| 2a b5 28 4d 53 2b 44 45 | 29 2b 33 2e 38 36 32 45 |*.(MS+DE|)+3.862E|
|00004c40| 2d 33 2a b5 28 34 2a 44 | 45 29 2b 45 2a 34 2e 30 |-3*.(4*D|E)+E*4.0|
|00004c50| 34 39 45 2d 33 2a b5 28 | 4d 44 2d 4d 53 2b 32 2a |49E-3*.(|MD-MS+2*|
|00004c60| 44 45 29 2b 33 2e 39 39 | 36 45 2d 33 2a b5 28 32 |DE)+3.99|6E-3*.(2|
|00004c70| 2a 28 4d 44 2b 44 45 29 | 29 2b 33 2e 36 36 35 45 |*(MD+DE)|)+3.665E|
|00004c80| 2d 33 2a b5 28 32 2a 44 | 45 2d 33 2a 4d 44 29 2b |-3*.(2*D|E-3*MD)+|
|00004c90| 45 2a 32 2e 36 39 35 45 | 2d 33 2a b5 28 32 2a 4d |E*2.695E|-3*.(2*M|
|00004ca0| 44 2d 4d 53 29 2b 32 2e | 36 30 32 45 2d 33 2a b5 |D-MS)+2.|602E-3*.|
|00004cb0| 28 4d 44 2d 32 2a 28 46 | 2b 44 45 29 29 0d 0b f4 |(MD-2*(F|+DE))...|
|00004cc0| d9 20 4c 3d 4c 2b 45 2a | 32 2e 33 39 36 45 2d 33 |. L=L+E*|2.396E-3|
|00004cd0| 2a b5 28 32 2a 28 44 45 | 2d 4d 44 29 2d 4d 53 29 |*.(2*(DE|-MD)-MS)|
|00004ce0| 2d 32 2e 33 34 39 45 2d | 33 2a b5 28 4d 44 2b 44 |-2.349E-|3*.(MD+D|
|00004cf0| 45 29 2b 45 32 2a 32 2e | 32 34 39 45 2d 33 2a b5 |E)+E2*2.|249E-3*.|
|00004d00| 28 32 2a 28 44 45 2d 4d | 53 29 29 2d 45 2a 32 2e |(2*(DE-M|S))-E*2.|
|00004d10| 31 32 35 45 2d 33 2a b5 | 28 32 2a 4d 44 2b 4d 53 |125E-3*.|(2*MD+MS|
|00004d20| 29 2d 45 32 2a 32 2e 30 | 37 39 45 2d 33 2a b5 28 |)-E2*2.0|79E-3*.(|
|00004d30| 32 2a 4d 53 29 2b 45 32 | 2a 32 2e 30 35 39 45 2d |2*MS)+E2|*2.059E-|
|00004d40| 33 2a b5 28 32 2a 28 44 | 45 2d 4d 53 29 2d 4d 44 |3*.(2*(D|E-MS)-MD|
|00004d50| 29 2d 31 2e 37 37 33 45 | 2d 33 2a b5 28 4d 44 2b |)-1.773E|-3*.(MD+|
|00004d60| 32 2a 28 44 45 2d 46 29 | 29 2d 31 2e 35 39 35 45 |2*(DE-F)|)-1.595E|
|00004d70| 2d 33 2a b5 28 32 2a 28 | 46 2b 44 45 29 29 2b 45 |-3*.(2*(|F+DE))+E|
|00004d80| 2a 31 2e 32 32 45 2d 33 | 2a b5 28 34 2a 44 45 2d |*1.22E-3|*.(4*DE-|
|00004d90| 4d 53 2d 4d 44 29 0d 0b | fe d1 20 4c 3d 4c 2d 31 |MS-MD)..|.. L=L-1|
|00004da0| 2e 31 31 45 2d 33 2a b5 | 28 32 2a 28 4d 44 2b 46 |.11E-3*.|(2*(MD+F|
|00004db0| 29 29 2b 38 2e 39 32 45 | 2d 34 2a b5 28 4d 44 2d |))+8.92E|-4*.(MD-|
|00004dc0| 33 2a 44 45 29 2d 45 2a | 38 2e 31 31 45 2d 34 2a |3*DE)-E*|8.11E-4*|
|00004dd0| b5 28 4d 53 2b 4d 44 2b | 32 2a 44 45 29 2b 45 2a |.(MS+MD+|2*DE)+E*|
|00004de0| 37 2e 36 31 45 2d 34 2a | b5 28 34 2a 44 45 2d 4d |7.61E-4*|.(4*DE-M|
|00004df0| 53 2d 32 2a 4d 44 29 2b | 45 32 2a 37 2e 30 34 45 |S-2*MD)+|E2*7.04E|
|00004e00| 2d 34 2a b5 28 4d 44 2d | 32 2a 28 4d 53 2b 44 45 |-4*.(MD-|2*(MS+DE|
|00004e10| 29 29 2b 45 2a 36 2e 39 | 33 45 2d 34 2a b5 28 4d |))+E*6.9|3E-4*.(M|
|00004e20| 53 2d 32 2a 28 4d 44 2d | 44 45 29 29 2b 45 2a 35 |S-2*(MD-|DE))+E*5|
|00004e30| 2e 39 38 45 2d 34 2a b5 | 28 32 2a 28 44 45 2d 46 |.98E-4*.|(2*(DE-F|
|00004e40| 29 2d 4d 53 29 2b 35 2e | 35 45 2d 34 2a b5 28 4d |)-MS)+5.|5E-4*.(M|
|00004e50| 44 2b 34 2a 44 45 29 2b | 35 2e 33 38 45 2d 34 2a |D+4*DE)+|5.38E-4*|
|00004e60| b5 28 34 2a 4d 44 29 0d | 0c 08 46 20 4c 3d 4c 2b |.(4*MD).|..F L=L+|
|00004e70| 45 2a 35 2e 32 31 45 2d | 34 2a b5 28 34 2a 44 45 |E*5.21E-|4*.(4*DE|
|00004e80| 2d 4d 53 29 2b 34 2e 38 | 36 45 2d 34 2a b5 28 32 |-MS)+4.8|6E-4*.(2|
|00004e90| 2a 4d 44 2d 44 45 29 2b | 45 32 2a 37 2e 31 37 45 |*MD-DE)+|E2*7.17E|
|00004ea0| 2d 34 2a b5 28 4d 44 2d | 32 2a 4d 53 29 0d 0c 12 |-4*.(MD-|2*MS)...|
|00004eb0| 13 20 4c 41 4d 3d 4c 44 | 2b a4 52 41 44 28 4c 29 |. LAM=LD|+.RAD(L)|
|00004ec0| 0d 0c 1c 21 20 e7 20 4c | 41 4d 3c 30 20 8c 20 4c |...! . L|AM<0 . L|
|00004ed0| 41 4d 3d 4c 41 4d 2b 54 | 50 49 3a e5 20 8d 54 5c |AM=LAM+T|PI:. .T\|
|00004ee0| 4c 0d 0c 26 23 20 e7 20 | 4c 41 4d 3e 54 50 49 20 |L..&# . |LAM>TPI |
|00004ef0| 8c 20 4c 41 4d 3d 4c 41 | 4d 2d 54 50 49 3a e5 20 |. LAM=LA|M-TPI:. |
|00004f00| 8d 54 66 4c 0d 0c 30 ce | 20 47 3d 35 2e 31 32 38 |.TfL..0.| G=5.128|
|00004f10| 31 38 39 2a b5 28 46 29 | 2b 32 2e 38 30 36 30 36 |189*.(F)|+2.80606|
|00004f20| 45 2d 31 2a b5 28 4d 44 | 2b 46 29 2b 32 2e 37 37 |E-1*.(MD|+F)+2.77|
|00004f30| 36 39 33 45 2d 31 2a b5 | 28 4d 44 2d 46 29 2b 31 |693E-1*.|(MD-F)+1|
|00004f40| 2e 37 33 32 33 38 45 2d | 31 2a b5 28 32 2a 44 45 |.73238E-|1*.(2*DE|
|00004f50| 2d 46 29 2b 35 2e 35 34 | 31 33 45 2d 32 2a b5 28 |-F)+5.54|13E-2*.(|
|00004f60| 32 2a 44 45 2b 46 2d 4d | 44 29 2b 34 2e 36 32 37 |2*DE+F-M|D)+4.627|
|00004f70| 32 45 2d 32 2a b5 28 32 | 2a 44 45 2d 46 2d 4d 44 |2E-2*.(2|*DE-F-MD|
|00004f80| 29 2b 33 2e 32 35 37 33 | 45 2d 32 2a b5 28 32 2a |)+3.2573|E-2*.(2*|
|00004f90| 44 45 2b 46 29 2b 31 2e | 37 31 39 38 45 2d 32 2a |DE+F)+1.|7198E-2*|
|00004fa0| b5 28 32 2a 4d 44 2b 46 | 29 2b 39 2e 32 36 37 45 |.(2*MD+F|)+9.267E|
|00004fb0| 2d 33 2a b5 28 32 2a 44 | 45 2b 4d 44 2d 46 29 2b |-3*.(2*D|E+MD-F)+|
|00004fc0| 38 2e 38 32 33 45 2d 33 | 2a b5 28 32 2a 4d 44 2d |8.823E-3|*.(2*MD-|
|00004fd0| 46 29 0d 0c 3a c8 20 47 | 3d 47 2b 45 2a 38 2e 32 |F)..:. G|=G+E*8.2|
|00004fe0| 34 37 45 2d 33 2a b5 28 | 32 2a 44 45 2d 4d 53 2d |47E-3*.(|2*DE-MS-|
|00004ff0| 46 29 2b 34 2e 33 32 33 | 45 2d 33 2a b5 28 32 2a |F)+4.323|E-3*.(2*|
|00005000| 28 44 45 2d 4d 44 29 2d | 46 29 2b 34 2e 32 45 2d |(DE-MD)-|F)+4.2E-|
|00005010| 33 2a b5 28 32 2a 44 45 | 2b 46 2b 4d 44 29 2b 45 |3*.(2*DE|+F+MD)+E|
|00005020| 2a 33 2e 33 37 32 45 2d | 33 2a b5 28 46 2d 4d 53 |*3.372E-|3*.(F-MS|
|00005030| 2d 32 2a 44 45 29 2b 45 | 2a 32 2e 34 37 32 45 2d |-2*DE)+E|*2.472E-|
|00005040| 33 2a b5 28 32 2a 44 45 | 2b 46 2d 4d 53 2d 4d 44 |3*.(2*DE|+F-MS-MD|
|00005050| 29 2b 45 2a 32 2e 32 90 | 03 45 2d 33 2a b5 28 32 |)+E*2.2.|.E-3*.(2|
|00005060| 2a 44 45 2b 46 2d 4d 53 | 29 2b 45 2a 32 2e 30 37 |*DE+F-MS|)+E*2.07|
|00005070| 32 45 2d 33 2a b5 28 32 | 2a 44 45 2d 46 2d 4d 53 |2E-3*.(2|*DE-F-MS|
|00005080| 2d 4d 44 29 2b 45 2a 31 | 2e 38 37 37 45 2d 33 2a |-MD)+E*1|.877E-3*|
|00005090| b5 28 46 2d 4d 53 2b 4d | 44 29 0d 0c 44 c7 20 47 |.(F-MS+M|D)..D. G|
|000050a0| 3d 47 2b 31 2e 38 32 38 | 45 2d 33 2a b5 28 34 2a |=G+1.828|E-3*.(4*|
|000050b0| 44 45 2d 46 2d 4d 44 29 | 2d 45 2a 31 2e 38 30 33 |DE-F-MD)|-E*1.803|
|000050c0| 45 2d 33 2a b5 28 46 2b | 4d 53 29 2d 31 2e 37 35 |E-3*.(F+|MS)-1.75|
|000050d0| 45 2d 33 2a b5 28 33 2a | 46 29 2b 45 2a 31 2e 35 |E-3*.(3*|F)+E*1.5|
|000050e0| 37 45 2d 33 2a b5 28 4d | 44 2d 4d 53 2d 46 29 2d |7E-3*.(M|D-MS-F)-|
|000050f0| 31 2e 34 38 37 45 2d 33 | 2a b5 28 46 2b 44 45 29 |1.487E-3|*.(F+DE)|
|00005100| 2d 45 2a 31 2e 34 38 31 | 45 2d 33 2a b5 28 46 2b |-E*1.481|E-3*.(F+|
|00005110| 4d 53 2b 4d 44 29 2b 45 | 2a 31 2e 34 31 37 45 2d |MS+MD)+E|*1.417E-|
|00005120| 33 2a b5 28 46 2d 4d 53 | 2d 4d 44 29 2b 45 2a 31 |3*.(F-MS|-MD)+E*1|
|00005130| 2e 33 35 45 2d 33 2a b5 | 28 46 2d 4d 53 29 2b 31 |.35E-3*.|(F-MS)+1|
|00005140| 2e 33 33 45 2d 33 2a b5 | 28 46 2d 44 45 29 2b 31 |.33E-3*.|(F-DE)+1|
|00005150| 2e 31 30 36 45 2d 33 2a | b5 28 46 2b 33 2a 4d 44 |.106E-3*|.(F+3*MD|
|00005160| 29 0d 0c 4e c4 20 47 3d | 47 2b 31 2e 30 32 45 2d |)..N. G=|G+1.02E-|
|00005170| 33 2a b5 28 34 2a 44 45 | 2d 46 29 2b 38 2e 33 33 |3*.(4*DE|-F)+8.33|
|00005180| 45 2d 34 2a b5 28 46 2b | 34 2a 44 45 2d 4d 44 29 |E-4*.(F+|4*DE-MD)|
|00005190| 2b 37 2e 38 31 45 2d 34 | 2a b5 28 4d 44 2d 33 2a |+7.81E-4|*.(MD-3*|
|000051a0| 46 29 2b 36 2e 37 45 2d | 34 2a b5 28 46 2b 34 2a |F)+6.7E-|4*.(F+4*|
|000051b0| 44 45 2d 32 2a 4d 44 29 | 2b 36 2e 30 36 45 2d 34 |DE-2*MD)|+6.06E-4|
|000051c0| 2a b5 28 32 2a 44 45 2d | 33 2a 46 29 2b 35 2e 39 |*.(2*DE-|3*F)+5.9|
|000051d0| 37 45 2d 34 2a b5 28 32 | 2a 28 44 45 2b 4d 44 29 |7E-4*.(2|*(DE+MD)|
|000051e0| 2d 46 29 2b 45 2a 34 2e | 39 32 45 2d 34 2a b5 28 |-F)+E*4.|92E-4*.(|
|000051f0| 32 2a 44 45 2b 4d 44 2d | 4d 53 2d 46 29 2b 34 2e |2*DE+MD-|MS-F)+4.|
|00005200| 35 45 2d 34 2a b5 28 32 | 2a 28 4d 44 2d 44 45 29 |5E-4*.(2|*(MD-DE)|
|00005210| 2d 46 29 2b 34 2e 33 39 | 45 2d 34 2a b5 28 33 2a |-F)+4.39|E-4*.(3*|
|00005220| 4d 44 2d 46 29 0d 0c 58 | bf 20 47 3d 47 2b 34 2e |MD-F)..X|. G=G+4.|
|00005230| 32 33 45 2d 34 2a b5 28 | 46 2b 32 2a 28 44 45 2b |23E-4*.(|F+2*(DE+|
|00005240| 4d 44 29 29 2b 34 2e 32 | 32 45 2d 34 2a b5 28 32 |MD))+4.2|2E-4*.(2|
|00005250| 2a 44 45 2d 46 2d 33 2a | 4d 44 29 2d 45 2a 33 2e |*DE-F-3*|MD)-E*3.|
|00005260| 36 37 45 2d 34 2a b5 28 | 4d 53 2b 46 2b 32 2a 44 |67E-4*.(|MS+F+2*D|
|00005270| 45 2d 4d 44 29 2d 45 2a | 33 2e 35 33 45 2d 34 2a |E-MD)-E*|3.53E-4*|
|00005280| b5 28 4d 53 2b 46 2b 32 | 2a 44 45 29 2b 33 2e 33 |.(MS+F+2|*DE)+3.3|
|00005290| 31 45 2d 34 2a b5 28 46 | 2b 34 2a 44 45 29 2b 45 |1E-4*.(F|+4*DE)+E|
|000052a0| 2a 33 2e 31 37 45 2d 34 | 2a b5 28 32 2a 44 45 2b |*3.17E-4|*.(2*DE+|
|000052b0| 46 2d 4d 53 2b 4d 44 29 | 2b 45 32 2a 33 2e 30 36 |F-MS+MD)|+E2*3.06|
|000052c0| 45 2d 34 2a b5 28 32 2a | 28 44 45 2d 4d 53 29 2d |E-4*.(2*|(DE-MS)-|
|000052d0| 46 29 2d 32 2e 38 33 45 | 2d 34 2a b5 28 4d 44 2b |F)-2.83E|-4*.(MD+|
|000052e0| 33 2a 46 29 0d 0c 62 06 | 20 3a 0d 0c 6c 25 20 57 |3*F)..b.| :..l% W|
|000052f0| 31 3d 34 2e 36 36 34 45 | 2d 34 2a 9b 28 4e 29 3a |1=4.664E|-4*.(N):|
|00005300| 57 32 3d 37 2e 35 34 45 | 2d 35 2a 9b 28 43 29 0d |W2=7.54E|-5*.(C).|
|00005310| 0c 76 1a 20 42 45 54 3d | a4 52 41 44 28 47 29 2a |.v. BET=|.RAD(G)*|
|00005320| 28 31 2d 57 31 2d 57 32 | 29 0d 0c 80 ca 20 48 50 |(1-W1-W2|).... HP|
|00005330| 3d 39 2e 35 30 37 32 34 | 45 2d 31 2b 35 2e 31 38 |=9.50724|E-1+5.18|
|00005340| 31 45 2d 32 2a 9b 28 4d | 44 29 2b 39 2e 35 33 31 |1E-2*.(M|D)+9.531|
|00005350| 45 2d 33 2a 9b 28 32 2a | 44 45 2d 4d 44 29 2b 37 |E-3*.(2*|DE-MD)+7|
|00005360| 2e 38 34 33 45 2d 33 2a | 9b 28 32 2a 44 45 29 2b |.843E-3*|.(2*DE)+|
|00005370| 32 2e 38 32 34 45 2d 33 | 2a 9b 28 32 2a 4d 44 29 |2.824E-3|*.(2*MD)|
|00005380| 2b 38 2e 35 37 45 2d 34 | 2a 9b 28 32 2a 44 45 2b |+8.57E-4|*.(2*DE+|
|00005390| 4d 44 29 2b 45 2a 35 2e | 33 33 45 2d 34 2a 9b 28 |MD)+E*5.|33E-4*.(|
|000053a0| 32 2a 44 45 2d 4d 53 29 | 2b 45 2a 34 2e 30 31 45 |2*DE-MS)|+E*4.01E|
|000053b0| 2d 34 2a 9b 28 32 2a 44 | 45 2d 4d 44 2d 4d 53 29 |-4*.(2*D|E-MD-MS)|
|000053c0| 2b 45 2a 33 2e 32 45 2d | 34 2a 9b 28 4d 44 2d 4d |+E*3.2E-|4*.(MD-M|
|000053d0| 53 29 2d 32 2e 37 31 45 | 2d 34 2a 9b 28 44 45 29 |S)-2.71E|-4*.(DE)|
|000053e0| 2d 45 2a 32 2e 36 34 45 | 2d 34 2a 9b 28 4d 53 2b |-E*2.64E|-4*.(MS+|
|000053f0| 4d 44 29 0d 0c 8a c6 20 | 48 50 3d 48 50 2d 31 2e |MD).... |HP=HP-1.|
|00005400| 39 38 45 2d 34 2a 9b 28 | 32 2a 46 2d 4d 44 29 2b |98E-4*.(|2*F-MD)+|
|00005410| 31 2e 37 33 45 2d 34 2a | 9b 28 33 2a 4d 44 29 2b |1.73E-4*|.(3*MD)+|
|00005420| 31 2e 36 37 45 2d 34 2a | 9b 28 34 2a 44 45 2d 4d |1.67E-4*|.(4*DE-M|
|00005430| 44 29 2d 45 2a 31 2e 31 | 31 45 2d 34 2a 9b 28 4d |D)-E*1.1|1E-4*.(M|
|00005440| 53 29 2b 31 2e 30 33 45 | 2d 34 2a 9b 28 34 2a 44 |S)+1.03E|-4*.(4*D|
|00005450| 45 2d 32 2a 4d 44 29 2d | 38 2e 34 45 2d 35 2a 9b |E-2*MD)-|8.4E-5*.|
|00005460| 28 32 2a 4d 44 2d 32 2a | 44 45 29 2d 45 2a 38 2e |(2*MD-2*|DE)-E*8.|
|00005470| 33 45 2d 35 2a 9b 28 32 | 2a 44 45 2b 4d 53 29 2b |3E-5*.(2|*DE+MS)+|
|00005480| 37 2e 39 45 2d 35 2a 9b | 28 32 2a 44 45 2b 32 2a |7.9E-5*.|(2*DE+2*|
|00005490| 4d 44 29 2b 37 2e 32 45 | 2d 35 2a 9b 28 34 2a 44 |MD)+7.2E|-5*.(4*D|
|000054a0| 45 29 2b 45 2a 36 2e 34 | 45 2d 35 2a 9b 28 32 2a |E)+E*6.4|E-5*.(2*|
|000054b0| 44 45 2d 4d 53 2b 4d 44 | 29 0d 0c 94 d4 20 48 50 |DE-MS+MD|).... HP|
|000054c0| 3d 48 50 2d 45 2a 36 2e | 33 45 2d 35 2a 9b 28 32 |=HP-E*6.|3E-5*.(2|
|000054d0| 2a 44 45 2b 4d 53 2d 4d | 44 29 2b 45 2a 34 2e 31 |*DE+MS-M|D)+E*4.1|
|000054e0| 45 2d 35 2a 9b 28 4d 53 | 2b 44 45 29 2b 45 2a 33 |E-5*.(MS|+DE)+E*3|
|000054f0| 2e 35 45 2d 35 2a 9b 28 | 32 2a 4d 44 2d 4d 53 29 |.5E-5*.(|2*MD-MS)|
|00005500| 2d 33 2e 33 45 2d 35 2a | 9b 28 33 2a 4d 44 2d 32 |-3.3E-5*|.(3*MD-2|
|00005510| 2a 44 45 29 2d 33 45 2d | 35 2a 9b 28 4d 44 2b 44 |*DE)-3E-|5*.(MD+D|
|00005520| 45 29 2d 32 2e 39 45 2d | 35 2a 9b 28 32 2a 28 46 |E)-2.9E-|5*.(2*(F|
|00005530| 2d 44 45 29 29 2d 45 2a | 32 2e 39 45 2d 35 2a 9b |-DE))-E*|2.9E-5*.|
|00005540| 28 32 2a 4d 44 2b 4d 53 | 29 2b 45 32 2a 32 2e 36 |(2*MD+MS|)+E2*2.6|
|00005550| 45 2d 35 2a 9b 28 32 2a | 28 44 45 2d 4d 53 29 29 |E-5*.(2*|(DE-MS))|
|00005560| 2d 32 2e 33 45 2d 35 2a | 9b 28 32 2a 28 46 2d 44 |-2.3E-5*|.(2*(F-D|
|00005570| 45 29 2b 4d 44 29 2b 45 | 2a 31 2e 39 45 2d 35 2a |E)+MD)+E|*1.9E-5*|
|00005580| 9b 28 34 2a 44 45 2d 4d | 53 2d 4d 44 29 0d 0c 9e |.(4*DE-M|S-MD)...|
|00005590| 05 3a 0d 0c a8 10 20 48 | 50 3d a4 52 41 44 28 48 |.:.... H|P=.RAD(H|
|000055a0| 50 29 0d 0c b2 06 20 e1 | 0d 0c bc 06 20 3a 0d 0c |P).... .|.... :..|
|000055b0| c6 0d 20 dd f2 4d 6f 6f | 6e 6e 66 0d 0c d0 19 20 |.. ..Moo|nnf.... |
|000055c0| 44 59 30 3d 44 59 3a 4d | 4e 30 3d 4d 4e 3a 59 52 |DY0=DY:M|N0=MN:YR|
|000055d0| 30 3d 59 52 0d 0c da 20 | 20 4d 4e 3d 31 3a 44 59 |0=YR... | MN=1:DY|
|000055e0| 3d 30 3a 46 4c 41 47 28 | 31 29 3d 30 3a f2 4a 75 |=0:FLAG(|1)=0:.Ju|
|000055f0| 6c 64 61 79 0d 0c e4 1b | 20 44 4a 44 30 3d 44 4a |lday....| DJD0=DJ|
|00005600| 44 3a 4d 4e 3d 4d 4e 30 | 3a 44 59 3d 44 59 30 0d |D:MN=MN0|:DY=DY0.|
|00005610| 0c ee 16 20 46 4c 41 47 | 28 31 29 3d 30 3a f2 4a |... FLAG|(1)=0:.J|
|00005620| 75 6c 64 61 79 0d 0c f8 | 2a 20 4b 3d 28 59 52 30 |ulday...|* K=(YR0|
|00005630| 2d 31 39 30 30 2b 28 28 | 44 4a 44 2d 44 4a 44 30 |-1900+((|DJD-DJD0|
|00005640| 29 2f 33 36 35 29 29 2a | 31 32 2e 33 36 38 35 0d |)/365))*|12.3685.|
|00005650| 0d 02 1f 20 4b 3d a4 4c | 49 46 28 4b 2b 30 2e 35 |... K=.L|IF(K+0.5|
|00005660| 29 3a 54 4e 3d 4b 2f 31 | 32 33 36 2e 38 35 0d 0d |):TN=K/1|236.85..|
|00005670| 0c 25 20 54 46 3d 28 4b | 2b 30 2e 35 29 2f 31 32 |.% TF=(K|+0.5)/12|
|00005680| 33 36 2e 38 35 3a 54 3d | 54 4e 3a f2 4c 6f 63 61 |36.85:T=|TN:.Loca|
|00005690| 6c 6e 66 0d 0d 16 17 20 | 4a 44 30 4e 3d 41 3a 4a |lnf.... |JD0N=A:J|
|000056a0| 44 31 4e 3d 42 3a 4e 46 | 3d 46 0d 0d 20 1a 20 54 |D1N=B:NF|=F.. . T|
|000056b0| 3d 54 46 3a 4b 3d 4b 2b | 30 2e 35 3a f2 4c 6f 63 |=TF:K=K+|0.5:.Loc|
|000056c0| 61 6c 6e 66 0d 0d 2a 17 | 20 4a 44 30 46 3d 41 3a |alnf..*.| JD0F=A:|
|000056d0| 4a 44 31 46 3d 42 3a 46 | 46 3d 46 0d 0d 34 06 20 |JD1F=B:F|F=F..4. |
|000056e0| e1 0d 0d 3e 06 20 3a 0d | 0d 48 0e 20 dd f2 4c 6f |...>. :.|.H. ..Lo|
|000056f0| 63 61 6c 6e 66 0d 0d 52 | 15 20 54 32 3d 54 2a 54 |calnf..R|. T2=T*T|
|00005700| 3a 41 3d 32 39 2e 35 33 | 2a 4b 0d 0d 5c 29 20 43 |:A=29.53|*K..\) C|
|00005710| 3d a4 52 41 44 28 31 36 | 36 2e 35 36 2b 28 31 33 |=.RAD(16|6.56+(13|
|00005720| 32 2e 38 37 2d 39 2e 31 | 37 33 45 2d 33 2a 54 29 |2.87-9.1|73E-3*T)|
|00005730| 2a 54 29 0d 0d 66 40 20 | 42 3d 35 2e 38 38 36 38 |*T)..f@ |B=5.8868|
|00005740| 45 2d 34 2a 4b 2b 28 31 | 2e 31 37 38 45 2d 34 2d |E-4*K+(1|.178E-4-|
|00005750| 31 2e 35 35 45 2d 37 2a | 54 29 2a 54 32 2b 33 2e |1.55E-7*|T)*T2+3.|
|00005760| 33 45 2d 34 2a b5 28 43 | 29 2b 37 2e 35 39 33 33 |3E-4*.(C|)+7.5933|
|00005770| 45 2d 31 0d 0d 70 40 20 | 4d 53 3d 33 35 39 2e 32 |E-1..p@ |MS=359.2|
|00005780| 32 34 32 2b 33 36 30 2a | a4 55 4e 57 28 4b 2f 31 |242+360*|.UNW(K/1|
|00005790| 2e 32 33 36 38 38 36 45 | 31 2c 31 29 2d 28 33 2e |.236886E|1,1)-(3.|
|000057a0| 33 33 45 2d 35 2b 33 2e | 34 37 45 2d 36 2a 54 29 |33E-5+3.|47E-6*T)|
|000057b0| 2a 54 32 0d 0d 7a 45 20 | 4d 4d 3d 33 30 36 2e 30 |*T2..zE |MM=306.0|
|000057c0| 32 35 33 2b 33 36 30 2a | a4 55 4e 57 28 4b 2f 39 |253+360*|.UNW(K/9|
|000057d0| 2e 33 33 30 38 35 31 45 | 2d 31 2c 31 29 2b 28 31 |.330851E|-1,1)+(1|
|000057e0| 2e 30 37 33 30 36 45 2d | 32 2b 31 2e 32 33 36 45 |.07306E-|2+1.236E|
|000057f0| 2d 35 2a 54 29 2a 54 32 | 0d 0d 84 41 20 46 3d 32 |-5*T)*T2|...A F=2|
|00005800| 31 2e 32 39 36 34 2b 33 | 36 30 2a a4 55 4e 57 28 |1.2964+3|60*.UNW(|
|00005810| 4b 2f 39 2e 32 31 34 39 | 32 36 45 2d 31 2c 31 29 |K/9.2149|26E-1,1)|
|00005820| 2d 28 31 2e 36 35 32 38 | 45 2d 33 2b 32 2e 33 39 |-(1.6528|E-3+2.39|
|00005830| 45 2d 36 2a 54 29 2a 54 | 32 0d 0d 8e 24 20 4d 53 |E-6*T)*T|2...$ MS|
|00005840| 3d a4 55 4e 57 28 4d 53 | 2c 33 36 30 29 3a 4d 4d |=.UNW(MS|,360):MM|
|00005850| 3d a4 55 4e 57 28 4d 4d | 2c 33 36 30 29 0d 0d 98 |=.UNW(MM|,360)...|
|00005860| 1e 20 46 3d a4 55 4e 57 | 28 46 2c 33 36 30 29 3a |. F=.UNW|(F,360):|
|00005870| 4d 53 3d a4 52 41 44 28 | 4d 53 29 0d 0d a2 1a 20 |MS=.RAD(|MS).... |
|00005880| 4d 4d 3d a4 52 41 44 28 | 4d 4d 29 3a 46 3d a4 52 |MM=.RAD(|MM):F=.R|
|00005890| 41 44 28 46 29 0d 0d ac | ca 20 44 44 4a 44 3d 28 |AD(F)...|. DDJD=(|
|000058a0| 31 2e 37 33 34 45 2d 31 | 2d 33 2e 39 33 45 2d 34 |1.734E-1|-3.93E-4|
|000058b0| 2a 54 29 2a b5 28 4d 53 | 29 2b 32 2e 31 45 2d 33 |*T)*.(MS|)+2.1E-3|
|000058c0| 2a b5 28 32 2a 4d 53 29 | 2d 34 2e 30 36 38 45 2d |*.(2*MS)|-4.068E-|
|000058d0| 31 2a b5 28 4d 4d 29 2b | 31 2e 36 31 45 2d 32 2a |1*.(MM)+|1.61E-2*|
|000058e0| b5 28 32 2a 4d 4d 29 2d | 34 45 2d 34 2a b5 28 33 |.(2*MM)-|4E-4*.(3|
|000058f0| 2a 4d 4d 29 2b 31 2e 30 | 34 45 2d 32 2a b5 28 32 |*MM)+1.0|4E-2*.(2|
|00005900| 2a 46 29 2d 35 2e 31 45 | 2d 33 2a b5 28 4d 53 2b |*F)-5.1E|-3*.(MS+|
|00005910| 4d 4d 29 2d 37 2e 34 45 | 2d 33 2a b5 28 4d 53 2d |MM)-7.4E|-3*.(MS-|
|00005920| 4d 4d 29 2b 34 45 2d 34 | 2a b5 28 32 2a 46 2b 4d |MM)+4E-4|*.(2*F+M|
|00005930| 53 29 2d 34 45 2d 34 2a | b5 28 32 2a 46 2d 4d 53 |S)-4E-4*|.(2*F-MS|
|00005940| 29 2d 36 45 2d 34 2a b5 | 28 32 2a 46 2b 4d 4d 29 |)-6E-4*.|(2*F+MM)|
|00005950| 2b 31 45 2d 33 2a b5 28 | 32 2a 46 2d 4d 4d 29 0d |+1E-3*.(|2*F-MM).|
|00005960| 0d b6 1e 20 44 44 4a 44 | 3d 44 44 4a 44 2b 35 45 |... DDJD|=DDJD+5E|
|00005970| 2d 34 2a b5 28 4d 53 2b | 32 2a 4d 4d 29 0d 0d c0 |-4*.(MS+|2*MM)...|
|00005980| 24 20 41 31 3d a8 28 41 | 29 3a 42 3d 42 2b 44 44 |$ A1=.(A|):B=B+DD|
|00005990| 4a 44 2b 28 41 2d 41 31 | 29 3a 42 31 3d a8 28 42 |JD+(A-A1|):B1=.(B|
|000059a0| 29 0d 0d ca 13 20 41 3d | 41 31 2b 42 31 3a 42 3d |).... A=|A1+B1:B=|
|000059b0| 42 2d 42 31 0d 0d d4 06 | 20 e1 0d 0d de 06 20 3a |B-B1....| ..... :|
|000059c0| 0d 0d e8 0e 20 dd f2 45 | 63 6c 69 70 73 65 0d 0d |.... ..E|clipse..|
|000059d0| f2 12 20 45 52 52 36 3d | 30 3a 45 52 52 37 3d 30 |.. ERR6=|0:ERR7=0|
|000059e0| 0d 0d fc 0c 20 f2 4d 6f | 6f 6e 6e 66 0d 0e 06 21 |.... .Mo|onnf...!|
|000059f0| 20 e7 20 54 50 24 3d 22 | 4c 22 20 8c 20 44 46 3d | . TP$="|L" . DF=|
|00005a00| 94 28 a4 55 4e 57 28 46 | 46 2c af 29 29 0d 0e 10 |.(.UNW(F|F,.))...|
|00005a10| 23 20 e7 20 54 50 24 3c | 3e 20 22 4c 22 20 8c 20 |# . TP$<|> "L" . |
|00005a20| 44 46 3d 94 28 a4 55 4e | 57 28 4e 46 2c af 29 29 |DF=.(.UN|W(NF,.))|
|00005a30| 0d 0e 1a 18 20 e7 20 44 | 46 3e 30 2e 33 37 20 8c |.... . D|F>0.37 .|
|00005a40| 20 44 46 3d af 2d 44 46 | 0d 0e 24 38 20 e7 20 44 | DF=.-DF|..$8 . D|
|00005a50| 46 3c 32 2e 34 33 36 30 | 30 37 36 36 45 2d 31 20 |F<2.4360|0766E-1 |
|00005a60| f1 22 2a 2a 20 65 63 6c | 69 70 73 65 20 63 65 72 |."** ecl|ipse cer|
|00005a70| 74 61 69 6e 2e 90 03 20 | 22 3a e5 20 8d 44 42 4e |tain... |":. .DBN|
|00005a80| 0d 0e 2e 30 20 e7 20 44 | 46 3c 30 2e 33 37 20 f1 |...0 . D|F<0.37 .|
|00005a90| 22 2a 2a 20 65 63 6c 69 | 70 73 65 20 70 6f 73 73 |"** ecli|pse poss|
|00005aa0| 69 62 6c 65 2e 90 03 20 | 22 3a e5 20 8d 44 42 4e |ible... |":. .DBN|
|00005ab0| 0d 0e 38 20 20 f1 22 2a | 2a 20 6e 6f 20 65 63 6c |..8  ."*|* no ecl|
|00005ac0| 69 70 73 65 2e 90 04 22 | 3a 45 52 52 36 3d 31 0d |ipse..."|:ERR6=1.|
|00005ad0| 0e 42 23 20 44 4a 44 3d | 4a 44 30 4e 2b 30 2e 35 |.B# DJD=|JD0N+0.5|
|00005ae0| 3a 58 3d 4a 44 31 4e 2d | 30 2e 35 3a 44 50 53 49 |:X=JD1N-|0.5:DPSI|
|00005af0| 3d 30 0d 0e 4c 28 20 e7 | 20 54 50 24 3d 22 4c 22 |=0..L( .| TP$="L"|
|00005b00| 20 8c 20 44 4a 44 3d 4a | 44 30 46 2b 30 2e 35 3a | . DJD=J|D0F+0.5:|
|00005b10| 58 3d 4a 44 31 46 2d 30 | 2e 35 0d 0e 56 1b 20 e7 |X=JD1F-0|.5..V. .|
|00005b20| 58 3c 30 20 8c 20 58 3d | 58 2b 31 3a 44 4a 44 3d |X<0 . X=|X+1:DJD=|
|00005b30| 44 4a 44 2d 31 0d 0e 60 | 1d 20 46 4c 41 47 28 32 |DJD-1..`|. FLAG(2|
|00005b40| 29 3d 30 3a f2 43 61 6c | 64 61 79 3a 44 59 30 3d |)=0:.Cal|day:DY0=|
|00005b50| 44 59 0d 0e 6a 10 20 e7 | 20 45 52 52 36 3c 3e 30 |DY..j. .| ERR6<>0|
|00005b60| 20 e1 0d 0e 74 23 20 44 | 59 3d 44 59 2b 58 2d 28 | ...t# D|Y=DY+X-(|
|00005b70| 31 2f 32 34 29 3a 58 44 | 44 3d 58 3a 46 4c 41 47 |1/24):XD|D=X:FLAG|
|00005b80| 28 31 29 3d 30 0d 0e 7e | 16 20 f2 53 75 6e 3a 4c |(1)=0..~|. .Sun:L|
|00005b90| 31 3d 4c 53 4e 3a f2 4d | 6f 6f 6e 0d 0e 88 28 20 |1=LSN:.M|oon...( |
|00005ba0| 4c 4d 31 3d 4c 41 4d 3a | 42 54 31 3d 42 45 54 3a |LM1=LAM:|BT1=BET:|
|00005bb0| 48 50 31 3d 48 50 3a 44 | 59 3d 44 59 2b 28 31 2f |HP1=HP:D|Y=DY+(1/|
|00005bc0| 31 32 29 0d 0e 92 1e 20 | 46 4c 41 47 28 31 29 3d |12).... |FLAG(1)=|
|00005bd0| 30 3a f2 53 75 6e 3a 44 | 4c 53 3d 4c 53 4e 2d 4c |0:.Sun:D|LS=LSN-L|
|00005be0| 31 0d 0e 9c 1a 20 e7 20 | 44 4c 53 3c 30 20 8c 20 |1.... . |DLS<0 . |
|00005bf0| 44 4c 53 3d 44 4c 53 2b | 54 50 49 0d 0e a6 21 20 |DLS=DLS+|TPI...! |
|00005c00| f2 4d 6f 6f 6e 3a 4c 4d | 32 3d 4c 41 4d 3a 42 54 |.Moon:LM|2=LAM:BT|
|00005c10| 32 3d 42 45 54 3a 48 50 | 32 3d 48 50 0d 0e b0 14 |2=BET:HP|2=HP....|
|00005c20| 20 e7 20 54 50 24 3d 22 | 4c 22 20 8c 8d 64 6c 4e | . TP$="|L" ..dlN|
|00005c30| 0d 0e ba 21 20 46 4c 41 | 47 28 36 29 3d 30 3a f2 |...! FLA|G(6)=0:.|
|00005c40| 4e 75 74 61 74 3a 58 3d | 4c 4d 31 3a 59 3d 42 54 |Nutat:X=|LM1:Y=BT|
|00005c50| 31 0d 0e c4 1f 20 58 48 | 3d 58 44 44 2a 32 34 3a |1.... XH|=XDD*24:|
|00005c60| 54 49 4d 3d 58 48 2d 31 | 3a 45 48 50 3d 48 50 31 |TIM=XH-1|:EHP=HP1|
|00005c70| 0d 0e ce 22 20 f2 50 61 | 72 61 6c 6c 61 78 5f 43 |..." .Pa|rallax_C|
|00005c80| 6f 72 72 65 63 74 3a 4c | 4d 31 3d 50 3a 42 54 31 |orrect:L|M1=P:BT1|
|00005c90| 3d 51 0d 0e d8 21 20 58 | 3d 4c 4d 32 3a 59 3d 42 |=Q...! X|=LM2:Y=B|
|00005ca0| 54 32 3a 54 49 4d 3d 58 | 48 2b 31 3a 45 48 50 3d |T2:TIM=X|H+1:EHP=|
|00005cb0| 48 50 32 0d 0e e2 22 20 | f2 50 61 72 61 6c 6c 61 |HP2..." |.Paralla|
|00005cc0| 78 5f 43 6f 72 72 65 63 | 74 3a 4c 4d 32 3d 50 3a |x_Correc|t:LM2=P:|
|00005cd0| 42 54 32 3d 51 0d 0e ec | 1a 20 58 48 3d 58 44 44 |BT2=Q...|. XH=XDD|
|00005ce0| 2a 32 34 3a 44 4c 4d 3d | 4c 4d 32 2d 4c 4d 31 0d |*24:DLM=|LM2-LM1.|
|00005cf0| 0e f6 1a 20 e7 20 44 4c | 4d 3c 30 20 8c 20 44 4c |... . DL|M<0 . DL|
|00005d00| 4d 3d 44 4c 4d 2b 54 50 | 49 0d 0f 00 1f 20 58 48 |M=DLM+TP|I.... XH|
|00005d10| 30 3d 58 48 2b 31 2d 28 | 32 2a 42 54 32 2f 28 42 |0=XH+1-(|2*BT2/(B|
|00005d20| 54 32 2d 42 54 31 29 29 | 0d 0f 0a 17 20 4c 48 3d |T2-BT1))|.... LH=|
|00005d30| 28 44 4c 4d 2d 44 4c 53 | 29 2f 32 3a 51 3d 30 0d |(DLM-DLS|)/2:Q=0.|
|00005d40| 0f 14 1f 20 4c 4d 30 3d | 4c 4d 31 2b 28 44 4c 4d |... LM0=|LM1+(DLM|
|00005d50| 2a 28 58 48 30 2d 58 48 | 2b 31 29 2f 32 29 0d 0f |*(XH0-XH|+1)/2)..|
|00005d60| 1e 2a 20 46 4c 41 47 28 | 31 29 3d 30 3a 44 59 3d |.* FLAG(|1)=0:DY=|
|00005d70| 44 59 30 2b 28 58 48 30 | 2f 32 34 29 2d 35 2e 37 |DY0+(XH0|/24)-5.7|
|00005d80| 37 31 36 30 35 45 2d 33 | 0d 0f 28 24 20 f2 53 75 |71605E-3|..($ .Su|
|00005d90| 6e 3a 4c 53 4e 3d 4c 53 | 4e 2b a4 52 41 44 28 44 |n:LSN=LS|N+.RAD(D|
|00005da0| 50 53 49 2d 35 2e 36 39 | 45 2d 33 29 0d 0f 32 2b |PSI-5.69|E-3)..2+|
|00005db0| 20 e7 20 54 50 24 3d 22 | 4c 22 20 8c 20 4c 53 4e | . TP$="|L" . LSN|
|00005dc0| 3d a4 55 4e 57 28 4c 53 | 4e 2b af 2c 54 50 49 29 |=.UNW(LS|N+.,TPI)|
|00005dd0| 3a e5 20 8d 44 50 4f 0d | 0f 3c 21 20 58 3d 4c 53 |:. .DPO.|.<! X=LS|
|00005de0| 4e 3a 59 3d 30 3a 54 49 | 4d 3d a4 55 4e 57 28 44 |N:Y=0:TI|M=.UNW(D|
|00005df0| 59 2a 32 34 2c 32 34 29 | 0d 0f 46 30 20 45 48 50 |Y*24,24)|..F0 EHP|
|00005e00| 3d 34 2e 32 36 33 34 35 | 32 45 2d 35 2f 52 53 4e |=4.26345|2E-5/RSN|
|00005e10| 3a f2 50 61 72 61 6c 6c | 61 78 5f 43 6f 72 72 65 |:.Parall|ax_Corre|
|00005e20| 63 74 3a 4c 53 4e 3d 50 | 0d 0f 50 25 20 42 54 31 |ct:LSN=P|..P% BT1|
|00005e30| 3d 42 54 31 2d 51 3a 42 | 54 32 3d 42 54 32 2d 51 |=BT1-Q:B|T2=BT2-Q|
|00005e40| 3a 50 53 30 3d 34 2e 32 | 36 33 45 2d 35 0d 0f 5a |:PS0=4.2|63E-5..Z|
|00005e50| 1e 20 5a 48 3d 28 4c 53 | 4e 2d 4c 4d 30 29 2f 4c |. ZH=(LS|N-LM0)/L|
|00005e60| 48 3a 54 43 3d 58 48 30 | 2b 5a 48 0d 0f 64 28 20 |H:TC=XH0|+ZH..d( |
|00005e70| 53 48 3d 28 90 03 42 54 | 32 2d 42 54 31 29 2a 28 |SH=(..BT|2-BT1)*(|
|00005e80| 54 43 2d 58 48 2d 31 29 | 2f 32 29 2b 42 54 32 29 |TC-XH-1)|/2)+BT2)|
|00005e90| 2f 4c 48 0d 0f 6e 28 20 | 53 48 32 3d 53 48 2a 53 |/LH..n( |SH2=SH*S|
|00005ea0| 48 3a 5a 48 32 3d 5a 48 | 2a 5a 48 3a 50 53 3d 50 |H:ZH2=ZH|*ZH:PS=P|
|00005eb0| 53 30 2f 28 52 53 4e 2a | 4c 48 29 0d 0f 78 1f 20 |S0/(RSN*|LH)..x. |
|00005ec0| 5a 31 48 3d 28 5a 48 2a | 5a 48 32 2f 28 5a 48 32 |Z1H=(ZH*|ZH2/(ZH2|
|00005ed0| 2b 53 48 32 29 29 2b 58 | 48 30 0d 0f 82 2b 20 48 |+SH2))+X|H0...+ H|
|00005ee0| 50 30 3d 28 48 50 31 2b | 48 50 32 29 2f 28 32 2a |P0=(HP1+|HP2)/(2*|
|00005ef0| 4c 48 29 3a 52 4d 3d 32 | 2e 37 32 34 34 36 45 2d |LH):RM=2|.72446E-|
|00005f00| 31 2a 48 50 30 0d 0f 8c | 2b 20 52 53 3d 34 2e 36 |1*HP0...|+ RS=4.6|
|00005f10| 35 32 34 32 45 2d 33 2f | 28 4c 48 2a 52 53 4e 29 |5242E-3/|(LH*RSN)|
|00005f20| 3a 48 50 44 3d 48 50 30 | 2a 30 2e 39 39 38 33 34 |:HPD=HP0|*0.99834|
|00005f30| 0d 0f 96 2c 20 52 55 3d | 28 48 50 44 2d 52 53 2b |..., RU=|(HPD-RS+|
|00005f40| 50 53 29 2a 31 2e 30 32 | 3a 52 50 3d 28 48 50 44 |PS)*1.02|:RP=(HPD|
|00005f50| 2b 52 53 2b 50 53 29 2a | 31 2e 30 32 0d 0f a0 1b |+RS+PS)*|1.02....|
|00005f60| 20 50 48 3d 94 28 53 48 | 2a 5a 48 2f b6 28 53 48 | PH=.(SH|*ZH/.(SH|
|00005f70| 32 2b 5a 48 32 29 29 0d | 0f aa 26 20 5a 33 48 3d |2+ZH2)).|..& Z3H=|
|00005f80| 28 4c 53 4e 2d 4c 4d 31 | 29 2f 4c 48 3a 5a 34 48 |(LSN-LM1|)/LH:Z4H|
|00005f90| 3d 28 4c 53 4e 2d 4c 4d | 32 29 2f 4c 48 0d 0f b4 |=(LSN-LM|2)/LH...|
|00005fa0| 1a 20 53 33 48 3d 42 54 | 31 2f 4c 48 3a 53 34 48 |. S3H=BT|1/LH:S4H|
|00005fb0| 3d 42 54 32 2f 4c 48 0d | 0f be 14 20 e7 20 54 50 |=BT2/LH.|... . TP|
|00005fc0| 24 3d 22 4c 22 20 8c 8d | 54 4e 50 0d 0f c8 27 20 |$="L" ..|TNP...' |
|00005fd0| 52 3d 52 4d 2b 52 53 3a | 5a 44 32 3d a4 5a 28 28 |R=RM+RS:|ZD2=.Z((|
|00005fe0| 5a 31 48 2d 58 48 30 29 | 2c 5a 48 32 2c 52 2c 5a |Z1H-XH0)|,ZH2,R,Z|
|00005ff0| 48 29 0d 0f d2 1b 20 e7 | 20 5a 44 32 3c 30 20 f2 |H).... .| ZD2<0 .|
|00006000| 43 6f 6e 64 69 74 69 6f | 6e 5f 41 3a e1 0d 0f dc |Conditio|n_A:....|
|00006010| 06 20 3a 0d 0f e6 1a 20 | 5a 44 3d b6 28 5a 44 32 |. :.... |ZD=.(ZD2|
|00006020| 29 3a 5a 32 48 31 3d 5a | 31 48 2d 5a 44 0d 0f f0 |):Z2H1=Z|1H-ZD...|
|00006030| 1b 20 5a 32 48 32 3d a4 | 55 4e 57 28 28 5a 31 48 |. Z2H2=.|UNW((Z1H|
|00006040| 2b 5a 44 29 2c 32 34 29 | 0d 0f fa 1c 20 e7 20 5a |+ZD),24)|.... . Z|
|00006050| 32 48 31 3c 30 20 8c 20 | 5a 32 48 31 3d 5a 32 48 |2H1<0 . |Z2H1=Z2H|
|00006060| 31 2b 32 34 0d 10 04 1b | 20 4d 47 3d 28 52 4d 2b |1+24....| MG=(RM+|
|00006070| 52 53 2d 50 48 29 2f 28 | 32 2a 52 53 29 3a e1 0d |RS-PH)/(|2*RS):..|
|00006080| 10 0e 27 20 52 3d 52 4d | 2b 52 50 3a 5a 44 32 3d |..' R=RM|+RP:ZD2=|
|00006090| a4 5a 28 28 5a 31 48 2d | 58 48 30 29 2c 5a 48 32 |.Z((Z1H-|XH0),ZH2|
|000060a0| 2c 52 2c 5a 48 29 0d 10 | 18 1b 20 e7 20 5a 44 32 |,R,ZH)..|.. . ZD2|
|000060b0| 3c 30 20 f2 43 6f 6e 64 | 69 74 69 6f 6e 5f 42 3a |<0 .Cond|ition_B:|
|000060c0| e1 0d 10 22 06 20 3a 0d | 10 2c 1a 20 5a 44 3d b6 |...". :.|.,. ZD=.|
|000060d0| 28 5a 44 32 29 3a 5a 32 | 48 31 3d 5a 31 48 2d 5a |(ZD2):Z2|H1=Z1H-Z|
|000060e0| 44 0d 10 36 1b 20 5a 32 | 48 32 3d a4 55 4e 57 28 |D..6. Z2|H2=.UNW(|
|000060f0| 28 5a 31 48 2b 5a 44 29 | 2c 32 34 29 0d 10 40 1c |(Z1H+ZD)|,24)..@.|
|00006100| 20 e7 20 5a 32 48 31 3c | 30 20 8c 20 5a 32 48 31 | . Z2H1<|0 . Z2H1|
|00006110| 3d 5a 32 48 31 2b 32 34 | 0d 10 4a 27 20 52 3d 52 |=Z2H1+24|..J' R=R|
|00006120| 4d 2b 52 55 3a 5a 44 32 | 3d a4 5a 28 28 5a 31 48 |M+RU:ZD2|=.Z((Z1H|
|00006130| 2d 58 48 30 29 2c 5a 48 | 32 2c 52 2c 5a 48 29 0d |-XH0),ZH|2,R,ZH).|
|00006140| 10 54 19 20 4d 47 3d 28 | 52 4d 2b 52 50 2d 50 48 |.T. MG=(|RM+RP-PH|
|00006150| 29 2f 28 32 2a 52 4d 29 | 0d 10 5e 17 20 e7 20 5a |)/(2*RM)|..^. . Z|
|00006160| 44 32 3c 30 20 8c 20 45 | 52 52 37 3d 31 3a e1 0d |D2<0 . E|RR7=1:..|
|00006170| 10 68 06 20 3a 0d 10 72 | 1a 20 5a 44 3d b6 28 5a |.h. :..r|. ZD=.(Z|
|00006180| 44 32 29 3a 5a 32 48 33 | 3d 5a 31 48 2d 5a 44 0d |D2):Z2H3|=Z1H-ZD.|
|00006190| 10 7c 1b 20 5a 32 48 34 | 3d a4 55 4e 57 28 28 5a |.|. Z2H4|=.UNW((Z|
|000061a0| 31 48 2b 5a 44 29 2c 32 | 34 29 0d 10 86 1c 20 e7 |1H+ZD),2|4).... .|
|000061b0| 20 5a 32 48 33 3c 30 20 | 8c 20 5a 32 48 33 3d 5a | Z2H3<0 |. Z2H3=Z|
|000061c0| 32 48 33 2b 32 34 0d 10 | 90 00 27 20 52 3d 52 55 |2H3+24..|..' R=RU|
|000061d0| 2d 52 4d 3a 5a 44 32 3d | a4 5a 28 28 5a 31 48 2d |-RM:ZD2=|.Z((Z1H-|
|000061e0| 58 48 30 29 2c 5a 48 32 | 2c 52 2c 5a 48 29 0d 10 |XH0),ZH2|,R,ZH)..|
|000061f0| 9a 19 20 4d 47 3d 28 52 | 4d 2b 52 55 2d 50 48 29 |.. MG=(R|M+RU-PH)|
|00006200| 2f 28 32 2a 52 4d 29 0d | 10 a4 17 20 e7 20 5a 44 |/(2*RM).|... . ZD|
|00006210| 32 3c 30 20 8c 20 45 52 | 52 37 3d 32 3a e1 0d 10 |2<0 . ER|R7=2:...|
|00006220| ae 06 20 3a 0d 10 b8 1a | 20 5a 44 3d b6 28 5a 44 |.. :....| ZD=.(ZD|
|00006230| 32 29 3a 5a 32 48 35 3d | 5a 31 48 2d 5a 44 0d 10 |2):Z2H5=|Z1H-ZD..|
|00006240| c2 1b 20 5a 32 48 36 3d | a4 55 4e 57 28 28 5a 31 |.. Z2H6=|.UNW((Z1|
|00006250| 48 2b 5a 44 29 2c 32 34 | 29 0d 10 cc 1c 20 e7 20 |H+ZD),24|).... . |
|00006260| 5a 32 48 35 3c 30 20 8c | 20 5a 32 48 35 3d 5a 32 |Z2H5<0 .| Z2H5=Z2|
|00006270| 48 35 2b 32 34 0d 10 d6 | 06 20 e1 0d 10 e0 06 20 |H5+24...|. ..... |
|00006280| 3a 0d 10 ea 12 20 dd f2 | 43 6f 6e 64 69 74 69 6f |:.... ..|Conditio|
|00006290| 6e 5f 41 0d 10 f4 35 20 | f1 22 2e 90 03 20 62 75 |n_A...5 |."... bu|
|000062a0| 74 20 69 73 20 6e 6f 74 | 20 73 65 65 6e 20 66 72 |t is not| seen fr|
|000062b0| 6f 6d 20 74 68 69 73 20 | 6c 6f 63 61 74 69 6f 6e |om this |location|
|000062c0| 22 3a 45 52 52 36 3d 32 | 0d 10 fe 06 20 e1 0d 11 |":ERR6=2|.... ...|
|000062d0| 08 06 20 3a 0d 11 12 12 | 20 dd f2 43 6f 6e 64 69 |.. :....| ..Condi|
|000062e0| 74 69 6f 6e 5f 42 0d 11 | 1c 25 20 f1 22 2e 90 03 |tion_B..|.% ."...|
|000062f0| 20 62 75 74 20 64 6f 65 | 73 20 6e 6f 74 20 6f 63 | but doe|s not oc|
|00006300| 63 75 72 22 3a 45 52 52 | 36 3d 31 0d 11 26 06 20 |cur":ERR|6=1..&. |
|00006310| e1 0d 11 30 06 20 3a 0d | 11 3a 17 20 dd f2 50 61 |...0. :.|.:. ..Pa|
|00006320| 72 61 6c 6c 61 78 5f 43 | 6f 72 72 65 63 74 0d 11 |rallax_C|orrect..|
|00006330| 44 21 20 53 57 33 3d 2d | 31 3a f2 45 71 65 63 6c |D! SW3=-|1:.Eqecl|
|00006340| 3a 43 4e 3d 33 2e 38 31 | 39 37 31 38 36 33 34 0d |:CN=3.81|9718634.|
|00006350| 11 4e 23 20 58 31 3d 50 | 2a 43 4e 3a 53 57 32 3d |.N# X1=P|*CN:SW2=|
|00006360| 31 3a 46 4c 41 47 28 33 | 29 3d 30 3a f2 47 74 69 |1:FLAG(3|)=0:.Gti|
|00006370| 6d 65 0d 11 58 1e 20 47 | 53 54 3d 47 54 4d 3a 58 |me..X. G|ST=GTM:X|
|00006380| 3d 58 31 3a f2 48 72 61 | 6e 67 3a 53 57 36 3d 31 |=X1:.Hra|ng:SW6=1|
|00006390| 0d 11 62 24 20 58 3d 50 | 2f 43 4e 3a 59 3d 51 3a |..b$ X=P|/CN:Y=Q:|
|000063a0| f2 50 61 72 61 6c 6c 61 | 78 3a 59 3d 51 3a 58 3d |.Paralla|x:Y=Q:X=|
|000063b0| 50 2a 43 4e 0d 11 6c 1f | 20 f2 48 72 61 6e 67 3a |P*CN..l.| .Hrang:|
|000063c0| 58 3d 50 2f 43 4e 3a 53 | 57 33 3d 31 3a f2 45 71 |X=P/CN:S|W3=1:.Eq|
|000063d0| 65 63 6c 0d 11 76 06 20 | e1 0d 11 80 06 20 3a 0d |ecl..v. |..... :.|
|000063e0| 11 8a 0f 20 dd 20 f2 44 | 69 73 70 6c 61 79 0d 11 |... . .D|isplay..|
|000063f0| 94 09 20 eb 20 31 32 0d | 11 9e 09 20 ef 20 32 36 |.. . 12.|... . 26|
+--------+-------------------------+-------------------------+--------+--------+